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— Copyright 2001 by Robert L. Jacobson, 
Option Explicit 

Private mstrFullName As String 
Private mstrAbrvName As String 
Private mstrFullNameTrim As String 
Private mstrAbrvNameTrim As String 

Property Get FullName () As String 

FullName = mstrFullName 
End Property 

Property Let FullName (By val Source As String) 

mstrFullName = Source 

mstrFullNameTrim = SuperTrim (Source) 
End Property 

Property Get FullNameTrim( ) As String 

FullNameTrim = mstrFullNameTrim 
End Property 

Property Get AbrvNameO As String 

AbrvName - mstrAbrvName 
End Property 

Property Let AbrvName (ByVal Source As String) 

mstrAbrvName = Source 

mstrAbrvNameTrim = SuperTrim (Source) 
End Property 

Property Get AbrvNameTrim{ } As String 

AbrvNameTrim = mstrAbrvNameTrim 
End Property 

Public Function HasAbbreviation ( ) As Boolean 

If mstrFullName <> mstrAbrvName Then HasAbbreviation = True 
End Function 
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Option Explicit 

Private mcolAbbreviations As Collection 

Public Enum bcAbbreviationType 

Table6 

TablelO 

All 
End Enum 

Private Sub Class_lnitialize ( ) 

Set mcolAbbreviations = New Collection 
End Sub 

Public Function Count () As Long 

Count = mcolAbbreviations . Count 
End Function 

Public Function Item (Index As Variant) As cAbbreviation 

Set Item = mcolAbbreviations . Item (Index) 
End Function 

Public Function NewEnumO As lUnknown 

Set NewEnum = mcolAbbreviations . [_NewEnum] 
End Function 

Public Sub LoadData( Source As bcAbbreviationType) 

If Source = Table6 Or Source = All Then 

Add "Administrative" , "Admin." 

Add "Administration", "Admin. " 

Add "Administrations", "Admins." 

Add "Administrator", "Adm'r" 

Add "Administrators", "Adm'rs" 

Add "Administratrix" , "Adm'x" 

Add "Administratrixes" , "Adm'xs" 

Add "Advertising", "Adver." 
LJ Add "Agriculture", "Agric. " 

Add "Agricultural", "Argic." 
H# Add "America", "Am." 
\l Add "Americas" , "Ams." 

~ Add "American", "Am." 
'Vjj Add "Americans", "Ams." 
s ^ Add "Associate", "Assoc." 
%=l Add "Associates", "Assocs." 
^..l Add "Association", "Ass'n" 

Add "Associations", "Ass'ns" 
[y Add "Atlantic", "Atl." 
H~! Add "Authority", "Auth. " 

Add "Authorities", "Auths." 

Add "Automobile", "Auto." 
s Add "Automobiles", "Autos." 

Add "Avenue", "Ave." 
^ Add "Avenues" , "Aves." 
fp Add "Bankruptcy", "Bankr." 

Add "Bankruptcies", "Bankrs." 
fc?! Add "Board", "Bd." 
|^:, Add "Broadcast", "Broad." 
s *~ Add "Broadcasts", "Broads." 

Add "Broadcasting", "Broad." 

Add "Brotherhood", "Bhd." 
f& Add " Brotherhoods " , " Bhds . " 

Add "Brothers", "Bros." 

Add "Building", "Bldg." 

Add "Buildings", "Bldgs." 

Add "Business", "Bus." 

Add "Casualty", "Cas." 

Add "Center", "Ctr. " 

Add "Centers", "Ctrs." 

Add "Centre", "Ctr. " 

Add "Centres", "Ctrs." 

Add " Central " , " Cent . " 

Add "Chemical", "Chem. " 

Add "Chemicals", "Chems." 

Add "Commission", "Comm'n" 

Add "Commissioner", "Comm'r" 

Add "Committee", "Comm." 

Add "Committees", "Comms." 

Add "Company", "Co." 

Add "Companies", "Cos." 

Add "Consolidated", "Consol." 

Add "Construction", "Constr." 

Add "Cooperative", "Coop." 

Add "Cooperatives", "Coops." 

Add "Corporation", "Corp." 

Add "Corporation", "Corps." 

Add "Department " , "Dep ' t " 

Add "Departments", "Dep'ts" 

Add "Developer", "Dev." 

Add "Development", "Dev." 

Add "Developers", "Devs." 

Add "Director", "Dir." 

Add "Directors", "Dirs." 

Add "Distributor", "Distrib." 

Add "Distributors", "Distribs." 

Add "Distributing", "Distrib." 

Add "District", "Dist." 

Add "Districts", "Dists." 

Add "Division", "Div." 
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Add "Divisions", "Divs." 
Add "East" , "E. " 
Add "Eastern", "E." 
Add "Economic", "Econ." 
Add "Economical", "Econ." 
Add "Economy", "Econ." 
Add "Economies", "Econs." 
Add "Education", "Educ." 
Add " Educational " , " Educ . " 
Add "Electric", "Elec." 
Add "Electrical", "Elec." 
Add "Electricity", "Elec." 
Add "Electronic" , "Elec." 
Add "Electronics", "Elecs." 
Add " Engineer " , " Eng 1 r " 
Add "Engineers", "Eng'rs" 
Add "Engineering", "Eng'g" 
Add "Enterprise", "Enter." 
Add "Enterprises", "Enters." 
Add " Envi r onmen t " , " Env ' t " 
Add " Envi r onmen ts " , " Env ' t s " 
Add "Environmental", "Envtl." 
Add " Equal ity " , " Equal . " 
Add " Equipment " , " Equip . " 
Add "Equipments", "Equips." 
Add " Examiner " , " Exam ' r " 
Add " Examiner s " , " Exam ' r s " 
Add " Exchange " , " Exch . " 
Add " Exchanges " , " Exchs . " 
Add "Executor", "Ex'r" 
Add "Executors", "Ex'rs" 
Add "Executrix", "Ex'x" 
Add "Executrixes", "Ex'xs" 
Add "Federal" , "Fed. " 
Add "Federation", "Fed'n" 
Add "Federations", "Fed'ns" 
Add "Finance", "Fin." 
Add "Finances", "Fins." 
Add "Financial", "Fin." 
O Add "Financing", "Fin," 
,;-.r~ Add "Foundation", "Found." 

Add "Foundations", "Founds." 
\ I Add " General " , " Gen . " 
, Add "Generals", "Gens." 
%l Add "Guaranty", "Guar." 
53= Add "Guaranties", "Guars." 

Add "Hospital", "Hosp." 
%„i Add "Hospitals", "Hosps." 
^" Add "Housing", "Hous." 
m Add "Incorporated", "Inc." 

Add "Indemnity", "Indem." 
4?= Add "Indemnities", "Indems." 

Add " Independent " , " Indep . " 
B Add "Industry", "Indus." 
jH Add "Industries", "Indus." 
J; Add "Industrial", "Indus." 
f|| Add "Information", "Info." 
A?a Add "Institute", "Inst." 
%zl Add "Institutes", "Insts." 
t„i Add "Institution", "Inst." 

Add " Institutions " , " Insts . " 
pj Add "Insurance", "Ins." 

Add " International " , " Int ' 1 " 
Add "Internationals", "Int 1 Is 
Add " Inves tment " , " Inv , " 
Add " Investments " , " Inv . " 
Add "Laboratory", "Lab." 
Add "Laboratories", "Lab." 
Add "Liability", "Liab." 
Add "Liabilities", "Liabs." 
Add "Limited", "Ltd." 
Add "Litigation", "Litig." 
Add "Machine", "Mach." 
Add "Machines", "Machs." 
Add "Machinery", "Mach." 
Add "Manufacturer", "Mfr." 
Add "Manufacturers " , " Mf rs . " 
Add "Manufacturing", "Mfg." 
Add "Market", "Mkt." 
Add "Markets" , "Mkts . " 
Add "Marketing", "Mktg. " 
Add "Medical", "Med." 
Add "Medicine", "Med." 
Add "Medicines", "Meds." 
Add "Memorial", "Mem'l" 
Add "Memorials", "Mem" Is" 
Add "Metropolitan", "Metro." 
Add "Municipal", "Mun." 
Add "Mutual" , "Mut . " 
Add " Nat i ona 1 " , " Nat ' 1 " 
Add "North", "N." 
Add "Northern", "N. " 
Add "Organization", "Org." 
Add "Organizations", "Orgs." 
Add " Or gani z ing " , " Org . " 
Add "Pacific", "Pac." 
Add " Pharma c eu t i c s " , " Fha rm . 
Add " Pharmaceut ical " , " Pharm 
Add " Product " , " Prod . " 
Add " Products " , " Prods . " 
Add "Production", "Prod." 
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Add "Productions", "Prods." 
Add "Professional", "Prof'l" 
Add "Professionals", "Prof Is" 
Add "Public" , "Pub. " 
Add "Publishing", "Publ'g" 
Add "Railroad", "R.R. " 
Add " Rai lr oads " , " R . Rs . " 
Add "Railway" , "Ry. " 
Add "Railways", "Rys." 
Add "Refining", "Ref." 
Add " Regional " , " Reg ' 1 " 
Add "Reproduction", "Reprod." 
Add "Reproductions" , "Reprods . " 
Add " Reproductive " , " Reprod . " 
Add "Road" , "Rd. " 
Add "Roads" , "Rds. " 
Add "Savings", "Sav." 
Add "School", "Sen." 
Add "Schools", "Sch. " 
Add "Security", "Sec." 
Add "Securities", "Sec." 
Add "Service", "Serv." 
Add " Services " , " Servs . " 
Add "Social", "Soc." 
Add "Socials" , "Socs. " 
Add "Society", "Soc'y" 
Add "Societies", "Soc'ys" 
Add "South", "S." 
Add "Southern", "S." 
Add " Steamship 11 , " S . S . " 
Add "Steamships", "S.S." 
Add "Street", "St." 
Add "Streets", "Sts." 
Add "Subcommittee", "Subcomm." 
Add " Subcommittees " , " Subcomms . " 
Add "Surety", "Sur." 
Add "Sureties", "Surs." 
Add "System", "Sys." 
Add " Sys terns " , " Sys . " 
Add "Technology", "Tech." 
■Ml Add "Technologies", "Techs." 

Add "Telecommunication", "Telecomm. " 
%I Add "Telecommunications", "Telecomms." 
% z Add "Telephone", "Tel." 

Add "Telephones", "Tels." 
In Add "Telegraph", "Tel." 

Add "Telegraphs", "Tels." 
kss Add "Temporary" , "Temp" 

Add "Transcontinental", "Transcon." 
%y Add "Transport", "Transp." 
\f s Add "Transports", "Transps." 

Add "Transportation" , "Transp." 
s Add "Uniform", "Unif." 
* s =, Add "Uniforms", "Unifs." 
hll Add "University", "Univ." 
?H Add "Universities", "Univs." 
'-^ Add "Utility", "Util." 
t*\ Add "Utilities", "Utils." 
7** Add "West" , "W. " 

Add "Western", "W. " 

hpknd If 

^"if Source = TablelO Or Source = All Then 



Add "Alabama", "Ala," 

Add "Alaska", "Alaska" 

Add "American Samoa", "Am. Sam." 

Add "Arizona", "Ariz." 

Add "Arkansas", "Ark." 

Add "California", "Cal." 

Add " Canal Zone " , "C . Z . " 

Add "Colorado", "Colo." 

Add "Connecticut", "Conn." 

Add "Delaware" , "Del. " 

Add "District of Columbia", "D.C." 

Add "Florida", "Fla." 

Add "Georgia", "Ga." 

Add "Guam", "Guam" 

Add "Hawaii", "Haw." 

Add " Idaho " , " Idaho " 

Add "Illinois", "111." 

Add "Indiana", "Ind." 

Add " Iowa " , "I owa " 

Add "Kansas", "Kan." 

Add "Kentucky", "Ky." 

Add "Los Angeles", "L . A. " 

Add "Louisiana", "La." 

Add "Maine" , "Me. " 

Add " Mary 1 and " , " Md . " 

Add "Massachusetts", "Mass." 

Add "Michigan", "Mich." 

Add "Minnesota", "Minn." 

Add "Mississippi", "Miss." 

Add "Missouri" , "Mo. " 

Add "Montana", "Mont." 

Add "Nebraska", "Neb." 

Add "Nevada", "Nev." 

Add "New Hampshire", "N.H." 

Add "New Jersey" , "N.J." 

Add "New Mexico " , " N . M . " 
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"New York" , " N . Y . " 

"North Carolina", "N.C." 

"North Dakota", "N.D." 

"Northern Mariana Islands", "N. 

"Ohio", "Ohio" 

" Okl ahoma " , " Okla . " 

"Oregon", "Or." 

" Pennsylvania " , " Pa . " 

"Philadelphia" , "Phila. " 

"Puerto Rico", "P.R." 

"Rhode Island" , "R. I . " 

"South Carolina", "S.C." 

"South Dakota" , "S.D." 

"Tennessee", "Term." 

"Texas" , "Tex. " 

"Utah", "Utah" 

"Vermont" , "Vt . " 

"Virgin Islands", "V.I. " 

"Virginia" , "Va. " 

"Washington", "Wash." 

"West Virginia", "W. Va." 

"Wisconsin " , "Wis . " 

" Wyoming " , " Wyo . " 

"New South Wales", "N.S.W." 

"Queensland", " Queens 1." 

"South Australia", "S. Austrl." 

" Tasmania " , " Tas . " 

"Victoria", "Vict. " 

"West Australia", "W. Austrl." 

"Alberta", "Alta." 

"British Columbia", "B.S." 

" Mani t oba " , " Man . " 

"New Brunswick", "N.B." 

"Newfoundland", "Nfld. " 

"Northwest Territories", "N.W.I 

"Nova Scotia" , "N. S. " 

"Ontario", "Ont." 

"Prince Edward Island", "P.E.I" 

"Quebec" , "Que. " 

" Saskatchewan " , " Sask . " 

"Yukon", "Yuokn" 

"Afghanistan", "Afg. " 

"Africa", "Afr." 

"Alb. " 
"Alg. " 
"Andorra " 
"Angl . " 
"Anguilla" 



Ant, & Barb. 



"Albania" 
"Algeria" 
"Andorra " 
"Angola" , 
"Anguilla 

"Antigua & Barbuda 
" Argent ina " , " Ar g . " 
"Armenia", "Arm." 
"Australia" , "Austl . " 
"Austria" , "Aus . " 
"Azerbaijan" , "Azer . " 
"Bahamas" , "Bah. " 
" Bahrain " , " Bahr . " 
"Bangladesh" , "Bangl . " 
" Barbados " , " Barb . " 
"Belarus" , "Belr. " 
"Belgium", "Belg." 
"Belize", "Belize" 
"Benin", "Benin" 
" Bermuda " , " Berm . " 
" Bhutan " , " Bhutan " 
"Bolivia" , "Bol . " 

"Bosnia & Herzegovina", "Bosn. & Her 2. 



"Botswana" 
"Brazil", 
"Brunei" , 
" Bulgaria" 



, "Bots." 
" Braz . " 
" Brunei" 
Bulg . ,: 



"Burkina Faso", "Burk. Faso" 

" Burundi " , " Burundi " 

" Cambodi a " , " Cambod i a " 

" C ame r o on " , " Came roon" 

" Canada " , " Can . " 

"Cape Verde", "Cape Verde" 

"Cayman Islands", "Cayman Is." 

"Central African Republic", "Cent. Afr. Rep. 

"Chad", "Chad" 

"Chile", "Chile" 

"People's Republic of China", "P.R.C." 

"Colombia", "Colom. " 

"Comoros", "Comoros" 

"Congo", "Congo" 

"Costa Rica", "Costa Rica" 

"C6te d'lvoire", "C6te d'lvoire" 

"Croatia", "Croat." 

"Cuba", "Cuba" 

" Cyprus " , " Cyprus " 

"Czech Republic", "Czech Rep." 

" Denmark " , " Den . " 

" D j ibout i " , " D j ib . " 

"Dominica", "Dominica" 

"Dominican Republic", "Dom. Rep." 

"Ecuador", "Ecuador" 

"Egypt", "Egypt" 

"El Salvador" , "El Sal." 

"England" , "Eng. " 

"Equatorial Guinea", "Eq. Guinea" 

"Eritrea", "Eri." 

"Estonia" , "Est. " 
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Add "Ethiopia", "Eth." 
Add " Eur ope " , " Eur , " 

Add "Falkland Islands", "Falkland Is." 

Add "Fiji", "Fiji" 

Add "Finland", "Fin." 

Add "France", "Fr." 

Add "Gabon" , "Gabon" 

Add "Gambia", "Gam." 

Add "Georgia", "Geor. " 

Add " Germany" , " F . R . G . " 

Add "Federal Republic of Germany", "F.R.G." 

Add " Ghana " , " Ghana " 

Add "Gilbr altar" , "Gib." 

Add "Great Britain", "Gr. Brit." 

Add "Greece", "Greece" 

Add "Grenada", "Gren. " 

Add "Guatemala", "Guat." 

Add " Guinea " , " Guinea " 

Add "Guinea-Bissau", "Guinea-Bissau" 

Add "Guyana", "Guy." 

Add "Haiti", "Haiti" 

Add "Honduras", "Hond. " 

Add " Hong Kong " , "H . K . " 

Add " Hungary " , " Hung . " 

Add "Iceland" , "Ice. " 

Add "India", "India" 

Add " Indonesia " , " Indon . " 

Add " Iran " , " Iran " 

Add "Iraq", "Iraq" 

Add "Ireland" , "Ir, " 

Add "Israel", "Isr." 

Add "Italy", "Italy" 

Add "Jamaica", "Jam." 

Add " Japan " , " Japan " 

Add "Jordan", "Jordan" 

Add "Kazakhstan", "Kaz." 

Add "Kenya", "Kenya" 

Add "Kiribati", "Kiribati" 

Add " Kuwa it", " Kuwa i t " 

Add "Kyrgyzstan" , "Kyrg. " 

Add "Laos", "Laos" 
* s * Add "Latvia", "Lat." 
%| Add "Lebanon", "Leb." 

Add "Lesotho", "Lesotho" 
*l Add "Liberia", "Liber." 
\*% A <3d "Libya", "Libya" 
^ r " Add "Liechtenstein", "Liech." 
api Add "Lituania", "Lith. " 
^ Add "Macedonia", "Maced." 
k$-J Add "Madagascar", "Madag." 
jp Add "Malawi", "Malawi" 
*f s Add "Malaysia", "Malay." 
~ Add "Maldives", "Maldives" 
~_ Add "Mali", "Mali" 
O Add "Malta", "Malta" 
?h h Add "Marshall Islands", "Marsh. Is." 
s H Add "Mauritania", "Mauritania" 
m Add "Mauritius", "Mauritius" 

Add "Mexico", "Mex." 
|«i Add "Micronesia", "Micr." 
^ Add "Moldova", "Mold." 

Add "Monaco", "Monaco" 
s. j _ L Add "Mongolia", "Mong. " 

Add "Montserrat", "Montserrat" 

Add "Morocco", "Morocco" 

Add "Mozanbique" , "Mozam." 

Add " Myanma r" , "My an. " 

Add "Namibia" , "Namib. " 

Add "Mauru", "Mauru" 

Add "Nepal", "Nepal" 

Add "Netherlands", "Neth. " 

Add "New Zealand", "N.2." 

Add "Nicaragua", "Nicar." 

Add "Niger", "Niger" 

Add "Nigeria", "Nig." 

Add "North America", "N. Am." 

Add "Northern Ireland", "N. Ir . " 

Add "North Korea", "N. Korea" 

Add "Norway" , "Nor . " 

Add " Oma n " , " Oman " 

Add " Pak i s t an " , " Pak . " 

Add " Panama " , " Pan . " 

Add "Papua New Guinea", "Papua N.G." 

Add " Par aguay " , " Para . " 

Add " Per u " , " Peru " 

Add "Philippines", "Phil." 

Add "Pitcairn Island", "Pitcairn Is." 

Add "Poland", "Pol. " 

Add " Por tugal " , " Port . " 

Add "Qatar", "Qatar" 

Add "Romania", "Rom." 

Add "Russia", "Russ." 

Add "Rwanda", "Rwanda" 

Add "St. Kitts & Nevis", "St. Kitts & Nevis" 
Add "St. Helena", "St. Helena" 
Add "St. Lucia", "St. Lucia" 

Add "St. Vincent & the Grenadines", "St. Vincent" 
Add "San Marino", "San Marino" 

Add "Sao Tome and Principe", "Sao Tome & Principe" 
Add "Saudi Arabia", "Saudi Arabia" 
Add "Scotland" , "Scot." 
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Add "Senegal", "Sen." 

Add "Seychelles", "Sey." 

Add "Sierra Leone", "Sierra Leone" 

Add " Singapore " , "Sing . " 

Add "Slovakia", "Slovk." 

Add " Slovenia " , " Slovn . " 

Add "Solomo Islands", "Solom. Is." 

Add " Somal ia " , " Somal . " 

Add "South Africa" , "S. Afr." 

Add "South Korea", "S. Korea" 

Add "Spain", "Spain" 

Add "Sri Lanka", "Sri Lanka" 

Add "Sudan", "Sudan" 

Add " Sur iname " , " Surin . " 

Add "Swaziland", "Swaz." 

Add " Sweden" , " Swed . " 

Add "Switzerland", "Switz." 

Add "Syria", "Syria" 

Add "Taiwan", "Taiwan" 

Add "Tajikistan", "Taj." 

Add "Thailand", "Thail." 

Add "Togo", "Togo" 

Add "Tonga", "Tonga" 

Add "Trinidad and Tobago", "Trin. & Tobago 
Add "Tunisia", "Tunis." 
Add "Turkey", "Turk." 

Add "Turkmenistan", "Turkm. " t 
Add "Turks and Caicos Islands", "Turks & Caicos Is. 
Add "Tuvalu", "Tuvalu" 
Add "Uganda", "Uganda" 
Add "Ukraine", "Ukr. " 
Add "United Arab Emirates", "U.A.E." 
Add "United Kingdom", "U.K." 
Add "United States", "U.S." 
Add "Uruguay", "Uru." 
Add "Uzbekistan", "Uzb. " 
Add "Vanuatu", "Vanuatu" 
Add "Vatican City", "Vatican" 
Add "Venezuela", "Venez." 
CI Add "Vietnam" , "Vietnam" 

.^1 Add "Br ittish Virgin Islands", "Virgin Is." 

Add "Wales", "Wales" 
%J Add "Western Samoa", "W. Samoa" 
, Add "Yemen", "Yemen" 
SI Add "Yugoslavia", "Yugo." 
, a g Add "Zaire", "Zaire" 
111 Add "Zambia", "Zambia" 

Add " Z imbabwe " , " Z imb . " 

End4fub 

Frifnd Sub Add<FullNaine As String, AbrvName As String, Optional ByVal Key As Variant) 
Jlfim bcAbbrNew As cAbbreviation 

Oet bcAbbrNew = New cAbbreviation 
I With bcAbbrNew 

.FullName = FullName 
f ? | .AbrvName = AbrvName 
'Tina With 

MicolAbbreviations.Add bcAbbrNew, Key 



End Sub 
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Option Explicit 

Private mmswOriginalSelection As Word. Range 

Public Sub Start () 

Dim bcCitationBuilder As cCitationBuilder 

Dim bcTimer As New cTimer 
Dim IngStartFrom As Long 

If f Opt ions. ForCourt = "" Then 
Call ShowOptions 

If f Options .ForCourt = "" Then Exit Sub 
End If 

Set ErrorForm - New cErrorForm 

Set mmswOriginalSelection = Word. Selection. Range 

Set ActiveDoc = New cDocument 

Call ActiveDoc. Initialize {Word. ActiveDocument) 

IngStartFrom = 1 

StartOver : 

ErrorForm. Result = None 

Set bcCitationBuilder = New cCitationBuilder 

Set Citation = bcCitationBuilder .NextCitationFromWord{ IngStartFrom) 
Do While Not (Citation Is Nothing) 
Call CheckCaseName 

If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm .Result = Change Then GoTo StartOver 
fc? Call CheckReporter 

If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 
\j Call CheckEditor 

u ; If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 
=55 Call Check JurAndCourt 

J ? "" If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 

Call CheckParallelReporters 
ItJI If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm . Resul t = Change Then GoTo StartOver 

#~ Call CheckDate 

s If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 

1^.1 Call CheckClauseOrder 

fy z If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 

p| IngStartFrom = Citation. Ci tat ionEnd + 1 

f^' Set Citation = bcCitationBuilder .NextCitationFromWord (IngStartFrom) 
^aLoop 

Cancel : 

Call EndBlueCheck 
End Sub 

Public Sub ShowOptions () 

f Options . Show vbModal 
End Sub 

Public Sub EndBlueCheck ( ) 

Dim strNumberOf Changes As String 

ErrorForm . Hide 

If Not ErrorForm. Result = Cancel Then 
Select Case ErrorForm. ChangesMade 
Case Is = 0 

StrNumberOf Changes = "No changes were made." 
Case Is < 13 

st rNumber Of Changes = Choose (ErrorForm. ChangesMade, "One change was made.", "Two changes were made.", "Three changes were ma 
de.", "Four changes were made.", "Five changes were made."/ "Six changes were made.", "Seven changes were made.", "Eight changes were made. 
*, "Nine changes were made.", "Ten changes were made.", "Eleven changes were made.", "Twelve changes were made.") 
Case Else 

st rNumber Of Changes = ErrorForm. ChangesMade & " changes were made." 
End Select 

Call MsgBox( "BlueCheck has finished checking this document. " & strNumberOf Changes, vblnformation, "BlueCheck") 
End If 

mmswOriginalSelection. Select 



Clipboard. Clear 

Set ErrorForm = Nothing 
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Set ActiveDoc = Nothing 

Set Citation = Nothing 

Call CloseAllHiddenDocuments 

End Sub 

Private Sub Class_Initialize O 

If AbrvsTablelO Is Nothing Then 

Set AbrvsTablelO = New cAbbreviations 
AbrvsTablel 0 . LoadData TablelO 

End If 

If AbrvsTable6 Is Nothing Then 

Set AbrvsTable6 - New cAbbreviations 
AbrvsTable 6 . LoadData Table6 

End If 

Xf AbrvsAll Is Nothing Then 

Set AbrvsAll = New cAbbreviations 
AbrvsAll .LoadData All 

End If 

End Sub 

Private Sub Class_Terminate ( ) 

Jurisdictions . Cleanup 

Set Jurisdictions = Nothing 



End Sub 
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Option Explicit 

Private mlngChangesMade As Long 

Private mbcBluebookRules As cMessages 
Private mbcErrorMes sages As cMessages 

Private mstrErrorText As String 
Private mstrErrorKey As String 
Private mlngHighlightStart As Long 
Private mlngHighlightEnd As Long 

Private mbol Err or Displayed As Boolean 
Private mcolIgnoreRuleList As Collection 

Private mbcSuggestion As cSuggestion 
Private mfErrorForm As fErrorForm 

Friend Property Get Suggestion () As cSuggestion 

Set Suggestion = mbcSuggestion 
End Property 

Friend Property Get Result!) As bcButtonPress 

Result = mfErrorForm. Result 
End Property 

Friend Property Let Result (Source As bcButtonPress) 

mfErrorForm. Result = Source 
End Property 

Friend Property Get ChangesMade ( ) As Long 

Chang esMade = mlngChangesMade 
End Property 

Friend Sub HideO 

mfErrorForm. Hide 
End Sub 

Publi'5-Sub LoadErr or (ByVal ErrorKey As String, ByVal Highlights tart As Long, ByVal HighlightEnd As Long, _ 

Optical ByVal AAA As String, Optional ByVal BBB As String, Optional ByVal CCC As String, Optional ByVal DDD As String) 

lf=Not ( Ac tiveDoc. Words. WordsTrim{ HighlightEnd) = " " ) Then 

\l If Act iveDoc. Wo rds. Space sAfterWordt HighlightEnd) = 0 And Act iveDoc .Words (HighlightEnd + 1) = "." Then HighlightEnd = HighlightEnd + 

1 ==3 

Mi If 

Load the module-level variables that will be used later. 
i^llErrorDisplayed = False 
mlhgHighlightStart = HighlightStart 
MlngHighlightEnd = HighlightEnd 
mstrErrorKey = ErrorKey 

Load the error message and insert the AAA, BBB, CCC and DDDD information into it. 
iptrErrorText = mbc Errorless age s . Item (ErrorKey) .MessageText 
||1aaa <> " " Then mstrErrorText = Replace (mstrErrorText, "AAA" , AAA) 
if L BBB <> "" Then mstrErrorText ~ Replace (mstrErrorText, "BBB", BBB) 
ill CCC <> "" Then mstrErrorText = Replace (mstrErrorText , "CCC", CCC) 
If: DDD <> "" Then mstrErrorText = Replace (mstrErrorText , "DDD", DDD) 

f-s- Reset the suggestion 

fill mbcSuggestion, Reset (Citation. CitationStart , Citation. Ci tat ionEnd) 
End Sub 

Public Function IgnoreError ( ) As Boolean 

Dim varErrorKey As Variant 

Dim strTruncatedErrorKey As String 



P 



StrTruncatedErrorKey = TruncatedErrorKey (mstrErrorKey) 
For Each varErrorKey In mcolIgnoreRuleList 

If varErrorKey = StrTruncatedErrorKey Then 
IgnoreError = True 
Exit Function 
End If 
Next varErrorKey 

End Function 

Public Sub DisplaySuggestion ( ) 
With mfErrorForm 

Call . Add Suggest ion (mbcSuggestion . RTFNdrmal , mbcSuggestion. RTFHighlight) 
If irtbolErrorDisplayed = False Then Call DisplayError 

End With 

' — Reset the suggestion 

Call mbcSuggestion . Reset (Citation . CitationStart, Citation . CitationEnd) 
End Sub 

Private Sub DisplayError ( ) 

Dim strReplacementText As String 
Dim strOriginal As String 
Dim strNormalRTF As String 
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Dim strHighlightRTF As String 
Dim strRuleKey As String 



1 — Select the citation in the original word document. 

Ac tiveDoc .Words . Range (Citation . CitationStart , Citation . CitationEnd) . Select 
■ — Highlight the citation and display it. 

strNormalRTF - ActiveDoc . Words . TextRTF (Citation. CitationStart , Citation. CitationEnd) 
strHighlightRTF = HighlightRTF (ActiveDoc, strNormalRTF, mlngHighlightStart, mlngHighlightEnd) 
Call mfErrorForm.AddCi tat ion (strNormalRTF, strHighlightRTF) 

'-- Substitute the "ORIGINAL " fields in the error message with the modified text. 
If InStrd, mstrErrorText, "ORIGINAL", vbBinaryCompare) Then 

strReplacementText = ActiveDoc .Words (mlngHighlightStart , mlngHighlightEnd) 

strReplacementText = FilterText (strReplacementText, "the", "the") 

mstrErrorText = Replace (mstrErrorText , "ORIGINAL", strReplacementText) 
End If 

• — Substitute the "SUGGESTION" fields in the error message with the modified text. 
If InStr(l, mstrErrorText, " SUGGESTION" , vbBinaryCompare) Then 

strReplacementText = FilterText (mbc Suggest ion. Suggest ionText, "a", "an") 

mstrErrorText = Replace (mstrErrorText , "SUGGESTION" , strReplacementText) 
End If 

'-- Convert the first character of the error message to upper case, and then display the error message. 
mstrErrorText = Trim$ (mstrErrorText) 

mstrErrorText = UCase$ (Left$ (mstrErrorText , 1)) & Right$ (mstrErrorText , Len (mstrErrorText) - 1) 
mfErrorForm.txtErrorMessage.Text = mstrErrorText 

' — Display the rule associated with this rule. 
strRuleKey = mbcErrorMessages . Item (mstrErrorKey) .RuleKey 
If strRuleKey = "T.l" Then 

If Not (Citation. Jurisdiction Is Nothing) Then 
If Not (Citation. Court Is Nothing) Then 

strRuleKey = "T.l: " & Citation. Jurisdiction & " " & Citation . Court . CourtGroup . FullName 

Else 

strRuleKey = " " 
End If 
t*% End If 
Enjl If 

^glNot (strRuleKey = "") Then mfErrorForm. rtfRule = mbcBluebookRules. Item (strRuleKey ) .Mess ageText 
mBelErrorDi splayed - True 
End Sub 

Private Function FilterText {ByVal SourceText As String, ByVal ArticleOne As String, ByVal ArticleTwo As String) As String 
f^urceText = Triirt$ (SourceText) 
If! Len (Trim? (SourceText) ) = 1 Then 



Select Case SourceText 





Case " { " 












FilterText 




ArticleTwo 


Sc 


" open parenthesis" 




Case " ) " 








" close parenthesis" 




FilterText 




ArticleOne 


& 




Case " [ " 












FilterText 




ArticleTwo 


St 


" open bracket" 




Case " ] " 












FilterText 




ArticleOne 


& 


11 close bracket" 




Case " . " 












FilterText 




ArticleOne 


& 


" period" 




Case " , " 












FilterText 




ArticleOne 


& 


" comma " 




Case " ( " 












FilterText 




ArticleTwo 


& 


" open question mark" 




Case " ; " 












FilterText 




ArticleOne 


& 


" semicolon" 




Case " : " 












Fi] terText 




ArticleOne 


& 


" colon" 




Case bcDBLQUOTE 










FilterText 




ArticleOne 


& 


" quotation mark" 




Case " ' " 












FilterText 




ArticleTwo 


& 


" apostrophe" 




Case " ~ " 












FilterText 




ArticleOne 


& 


" hyphen" 




Case Else 












FilterText 




bcDBLQUOTE 


& 


SourceText & bcDBLQUOTE 



End Select 



Else 

FilterText = bcDBLQUOTE & SourceText & bcDBLQUOTE 
End If 

End Function 

Public Sub Activate () 

If mbc Suggest ion. IsDirty Then Call DisplaySuggestion 
If mbolErrorDisplayed = False Then Call DisplayError 

With mfErrorForm 

Call .PrepareData 
.cmdCanc el. Enabled = True 
.cmdlgnore. Enabled = True 
. cmdlgnoreRule . Enabled = True 
.cmdChange. Enabled = True 
. cmdChange . Set Focus 
.cmdChange. Enabled = False 
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Call .MakeModal 
End With 

Call ProcessResults 
End Sub 

Private Sub ProcessResults { ) 
Dim strTruncatedErrorKey 



Select Case mfErrorForm. Result 

^^ctiveDo^Words.TextRTF {Citation. CitationStart, Citation. CitationEnd) = mfErrorForra. SelectedChangeRTF 
mlngChangesMade = mlngChangesMade + 1 

Case Is = IgnoreRule 

mcolIgnoreRuleList.Add TruncatedErrorKey (mstrErrorKey) 

End Select 
End Sub 

Private Sub Class_Initialize { ) 

Set mbcBluebookRules = New cMessages 

Call mbcBluebookRules.OpenFile("Bluebook Rules") 

Set mbcErrorMes sages = New cMessages 

Call mbcErrorMessages.OpenFileC Error Messages") 

Set mcolIgnoreRuleList = New Collection 

Set mbcSuggestion = New cSuggestion 
Set mfErrorForm = New fErrorForm 
Load mfErrorForm 

End sQ 

PrivaS Sub Class_Terminate ( ) 

Unload mfErrorForm 

SbJ| mfErrorForm = Nothing 

End 4B 

PrivM Function HighlightRTF (ByRef SourceDocument As cDocument, ByVal SourceRTF As String, ByVal FirstWord As Lo 
ByVa£r|astWord As Long) As String 

Dk£m bcRichText As New cRichText 
Dim IngFirstChar As Long 
Mm IngLastChar As Long 
l^fiBEi IngCharOff set As Long 

t|! LastWord < FirstWord _ 
4&J FirstWord - 0 _ 
@r ; LastWord = 0 Then 

HighlightRTF - SourceRTF 
t"'% Exit Function 
fftd If 

If* SourceDocument Is ActiveDoc Then IngCharOff set = ActiveDoc. Words. FirstChar (Citation. CitationStart) - 1 

IngFirstChar = SourceDocument .Words . FirstChar (FirstWord) - IngCharOff set 
IngLastChar = SourceDocument .Words . Las tChar (LastWord) - IngCharOf fset 

With bcRichText 

. TextRTF = SourceRTF 

. SelStart = IngFirstChar 

.SelLength = IngLastChar - IngFirstChar 

. SelColor = wdColorRed 

HighlightRTF = . TextRTF 
End With 

End Function 

Private Function TruncatedErrorKey (ErrorKey As String) As String 

If I sNumeric (Right$ (mstrErrorKey, 1)) Then 

TruncatedErrorKey = Trim$ (Left$ (mstrErrorKey, Len(ErrorKey) - 1)) 

Else 

TruncatedErrorKey = mstrErrorKey 
End If 



End Function 
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Option Explicit 

Public MessageName 
Public MessageText 
Public RuleKey 
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Option Explicit 

Private mcolltems As Collection 
Private mstrFileName As String 

Private Const FILE_PATH As String = "C:\BlueCheck\Data\" 

Friend Function Item (Index As Variant) As cMessage 

Set Item - mcoll terns (Index) 
End Function 

Friend Sub Add (Item As cMessage, Optional Before, Optional After) 

mcoll terns. Add Item, Item. MessageName, Before, After 
End Sub 

Friend Sub Remove ( Index) 

mcoll terns. Remove (Index) 
End Sub 

Friend Property Get FileName () As String 

FileName = mstrFileName 
End Property 

Public Function NewEnumO As lUnknown 
Set NewEnum = mcoll terns. [_NewEnum] 
End Function 

Friend Sub OpenFile (FileName As String) 

Dim IngFileNumber As Long 
Dim bcMessage As cMessage 
Dim strMessageName As String 
Dim strMessageText As String 
Dim strRuleKey As String 



mstrFileName = FileName 

Set mcolltems = New Collection 

insFileNumber = FreeFile 

(j^n FILE_PATH & mstrFileName & ".txt" For Input As IngFileNumber 
Bpj 

\l Line Input # IngFileNumber, strMessageName 
.J! Line Input # IngFileNumber , strMessageText 
yi Line Input # IngFileNumber, strRuleKey 

Set bcMessage = New cMessage 
ffz With bcMessage 

^ .MessageName = strMessageName 

in .MessageText = strMessageText 

^ .RuleKey = strRuleKey 

- End With 

£*% mcolltems. Add bcMessage, bcMessage. MessageName 

f||p Until EOF (IngFileNumber) 
qjbse IngFileNumber 
MstrFileName ~ FileName 

End Sub 

Friefcf Sub SaveFileO 

Dim IngFileNumber As Long 
Dim bcMessage As cMessage 



IngFileNumber - FreeFile 

Open FILE__PATH & mstrFileName & ".txt" For Output As IngFileNumber 

For Each bcMessage In mcolltems 
With bcMessage 

Print #lngFileNumber, .MessageName 

Print # IngFileNumber, Replace (. MessageText , vbCrLf, " 11 ) 
Print # IngFileNumber, .RuleKey 
End With 
Next bcMessage 

Close IngFileNumber 

Call MsgBox ( " Save complete.", vbOKOnly, "Save complete") 



End Sub 
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Option Explicit 

Private mlngSuggestion ( ) As Long 
Private mbolHighlight ( ) As Boolean 

Private mbcSuggestion As cDocument 
Private mlngFirstWord As Long 
Private mlngLastWord As Long 

Private mstrSuggestion As String 
Private mbolIsDirty As Boolean 

Private Const DELETED As Long = -100000000 

Private Sub Class_Initialize { ) 

Set mbcSuggestion = New cDocument 
Call mbcSuggestion. Initialize 

End Sub 

Friend Property Get IsDirtyO As Boolean 

IsDirty = mbolIsDirty 
End Property 

Friend Property Get Suggest ionText { ) As String 

Suggest ionText = mstrSuggestion 
End Property 

Friend Sub Reset {ByVal FirstWord As Long, ByVal LastWord As Long) 

Dim i As Long 

Dim IngOffset As Long 



mlngFirstWord = FirstWord 
mlngLastWord = LastWord 
ifEfrSuggestion - " " 

M&im mlngSuggest ion {mlngFirstWord To mlngLastWord) 
Refim mbolHighlight (mlngFirstWord To mlngLastWord) 

*%fcSugges t ion. Range. Format tedText = Ac tiveDoc .Words .Range (mlngFirstWord, mlngLastWord) .Format tedText 

itflsuggestion.FormattedText = Ac tiveDoc .Words .Range (mlngFirstWord, mlngLastWord) 

JiigOffset = Citation. CitationStart - 1 
Eft3r i = mlngFirstWord To mlngLastWord 
mlngSuggestion(i) = i - IngOffset 
liflxt i 

^Call DebugPrintWords 
ijg3|HsDirty = False 

End £M> 

FrielllSub Change (ByVal FirstWord As Long, ByVal LastWord As Long, ByVal ReplacementText As String) 

©*rm IngFirstWord As Long 

IngLastWord As Long 
Dim IngFormerWordCount As Long 

IngOffset As Long 
Dim i As Long 



IngFormerWordCount = mbcSuggestion. Words . Count 
IngFirstWord = mlngSuggest ion (FirstWord) 
IngLastWord = mlngSuggesti on (LastWord) 

If mstrSuggestion = " " Then mstrSuggestion = ReplacementText 

'— If the word before the change start is a punctuation mark, and the change begins with the same punctuation mark, 
delete the first punctuation mark when making the change. 

If mbcSuggestion. Words (IngFirstWord - 1) = Left$ (Trim$ (ReplacementText ) , 1) Then 

IngFirstWord = IngFirstWord - 1 
End If 

' — If the word after the change end is a punctuation mark, and the change ends with the same punctuation mark, then 
delete the later punctuation mark when making the change. 

If mbcSuggestion. Words ( IngLastWord + 1) = Right $ (Trim$ (ReplacementText) , 1) Then 

IngLastWord = IngLastWord + 1 
End If 

' — Change the suggestion. 

mbcSuggestion. Words. Highlight (IngFirstWord, IngLastWord) - True 
mbcSuggestion. Words (IngFirstWord, IngLastWord) = ReplacementText 

' — Update the offset count. 

IngOffset = IngFormerWordCount - mbcSuggestion . Words . Count 
If IngOffset > 0 Then 

•__ The new suggestion is shorter than the old suggestion. 

For i - LastWord - IngOffset + 1 To LastWord 
mlngSuggestion(i) = DELETED 

Next i 

For i = LastWord + 1 To mlngLastWord 

mlngSuggestion(i) = mlngSuggest ion (i) - IngOffset 



ft 
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Next i 

El self IngOffset < 0 Then 

The new suggestion is longer than the old suggestion 
For i = LastWord + 1 To mlngLastWord 

mlngSuggestion (i) = mlngSuggestion (i) - IngOffset 
Next i 
End If 

Call DebugPrint Words 
mbolIsDirty = True 

End Sub 

Friend Sub Delete (ByVal FirstWord As Long, ByVal LastWord As Long) 

Dim IngFirstWord As Long 

Dim IngLastWord As Long 

Dim IngOffset As Long 

Dim strSurroundingText As String 

Dim i As Long 



If Not ( Ac tiveDoc, Words. WordsTrim( LastWord) = "") Then ^ ^ rT _ 

If ActiveDoc. Words. SpacesAfterWordt LastWord) - 0 And ActiveDoc .Words {LastWord + 1) = " . " Then LastWord = LastWord + 1 
End If 

If mstrSuggestion = "" Then mstrSuggestion = ActiveDoc. Words (FirstWord, LastWord) 
IngFirstWord = mlngSuggestion (FirstWord) 
IngLastWord = mlngSuggestion (LastWord) 

'— If the deletion will create an improper combination of punctuation after the words are deleted, then expand the range 
of words to delete to delete one of the improper characters. 

strSurroundingText ~ mbc Suggest ion. Words { IngFirstWord - 1) & mbcSuggest ion. Words (IngLastWord + 1) 



Select Case strSurroundingText 
Case *'),", " ( , u , " , . " , 

IngLastWord - IngLastWord + 1 
Case " , , " , " , ( " , " , ) " 

IngFirstWord = IngFirstWord - 1 
— Case " { } " 

•${\ IngFirstWord = IngFirstWord - 1 

* s ! IngLastWord = IngLastWord + 1 

Efs4 Select 

' — Delete the words in the suggestion. 

<S£l mbcSuggest ion. Words. Delete (IngFirstWord, IngLastWord) 

(aos Update the offset count. 

lsSgOffset = IngLastWord - IngFirstWord + 1 
FHf i = FirstWord To LastWord 
s mlngSuggestion (i) = DELETED 
Next i 

ioi i = LastWord + 1 To mlngLastWord 

fll mlngSuggestion (i) = mlngSuggestion(i) - IngOffset 

Next i 

JCall DebugPrintWords 
ffebllsDirty = True 

End kgb 

FrienTsub Insert (ByVal InsertBef oreWord As Long, ByVal TextToInsert As String) 



Dim InglnsertBe foreword As Long 
Dim IngFormerWordCount As Long 
Dim IngOffset As Long 
Dim i As Long 

Dim strPriorWord As String 
Dim strNextWord As String 



IngF o rme rWo r dC ount = mbc Sugge s t i on - Wo r ds . Coun t 
If InsertBef oreWord > UBound (mlngSuggestion) Then 

InglnsertBe foreword = mlngSuggestion (UBound (mlngSuggestion) ) + 1 

Else 

InglnsertBef oreWord = mlngSuggestion (InsertBeforeWord) 
End If 

If mstrSuggestion = " " Then mstrSuggestion = TextToInsert 

If Left$ (TextToInsert, 1) = "<" Then 

strPriorWord = mbcSuggestion .Words (InglnsertBef oreWord 
If strPriorWord = "," Then 

Call Change (InsertBeforeWord - 1, InsertBeforeWord 
Exit Sub 
End If 
End If 

If Right$ (TextToInsert, 1) = "," Then 

strNextWord = mbcSuggestion. Words (InglnsertBef oreWord) 

If strNextWord ~ "(" Or strNextWord = "," Then 

TextToInsert = Left$ (TextToInsert , Len (TextToInsert) - 1) 

End If 
End If 

'-- Insert the text in the suggestion. 

Call mbcSuggestion . Words . Insert { InglnsertBef oreWord, TextToInsert ) 
IngOffset = IngFormerWordCount - mbcSuggestion.Words.Count 



- 1) 

- 1, TextToInsert) 
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mbcSuggestion. Words. Highlight ( InglnsertBef oreWord, IngOffset) = True 
■ — Update the offset count. 

For i = InsertBe foreword To mlngLastWord 

mlngSuggestion(i) = mlngSuggestion{ i) - IngOffset 
Next i 

Call Debug Print Words 
mbolIsDirty = True 

End Sub 

Friend Sub Transpose (By Val FirstWord As Long, ByVal LastWord As Long, ByVal insertBef oreWord As Long) 

Dim strTextToTranspose As String 
Dim strSurroundingText As String 

strSurroundingText = ActiveDoc .Words (FirstWord - 1) & Ac tiveDoc .Words (LastWord + 1) 
Select Case strSurroundingText 
Case " ( ) " 

FirstWord = FirstWord - 1 

LastWord = LastWord + 1 
End Select 

strTextToTranspose = ActiveDoc .Words (FirstWord, LastWord) 

If mstrSuggestion - " " Then mstrSuggestion = strTextToTranspose 

Call Delete (FirstWord, LastWord) 

Call Insert (InsertBef oreWord, strTextToTranspose) 
mbolIsDirty - True 
End Sub 

Private Sub Debug Pr in two r ds ( ) 
Dim i As Long 
E§Jug. Print 

FcSl i = mlngFirstWord To mlngLastWord 
■41 If mlngSuggestion(i) <> DELETED Then 

^= Debug. Print i & ": ActiveDoc .Words (i) , mbcSuggestion. Words (mlng Suggest ion (i) ) 
'" Else 

\| Debug. Print i & " : " , ActiveDoc .Words ( i) 
H ^ End If 

Hebug 1 print "ActiveDoc : " & ActiveDoc .Words (mlngFirstWord, mlngLastWord) _ 

ifelug. Print "Suggestion: " & mbcSuggestion. Words (mlngSuggestion (mlngFirstWord) , mlngSugges t ion (mlngLastWord) } 
End 3ttf> 

Publfc Property Get RTFNormal ( ) As String 

i*\ 

§r|Normal = mbcSuggestion.RTF 

'£ '^i 

End Bppperty 

Public Property Get RTFHighlight ( ) As String 

fTB TO DO: Make this actually display highlighted text 

PstrRTFHighlight = Highlight RTF (mbcSuggestion, strRTFNormal , IngTransposedStart , IngTransposedEnd) 
RTFHighlight = mbcSuggestion.RTF 
End Property 

Private Function HighlightRTF (ByRef SourceDocument As cDocument, ByVal SourceRTF As String, ByVal FirstWord As Long, 
ByVal LastWord As Long) As String 

Dim bcRichText As New cRichText 
Dim IngFirstChar As Long 
Dim IngLastChar As Long 
Dim IngCharOffset As Long 



If LastWord < FirstWord _ 
Or FirstWord = 0 _ 
Or LastWord = 0 Then 

HighlightRTF = SourceRTF 

Exit Function 
End If 

If SourceDocument Is ActiveDoc Then IngCharOffset = ActiveDoc .Words . FirstChar (Citation. Citat ionStart ) - 1 

IngFirstChar = SourceDocument .Words . FirstChar (FirstWord) 
IngLastChar = SourceDocument .Words . Last Char (LastWord) 

With bcRichText 

. TextRTF = SourceRTF 

.SelStart = IngFirstChar - IngCharOffset 
.SelLength = IngLastChar - IngFirstChar - IngCharOffset 
.SelColor = wdColorRed 
HighlightRTF = .TextRTF 
End With 



End Function 
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Option Explicit 

Public Result As bcButtonPress 

Private mstrCitationNormalRTF As String 
Private mstrCitationHighlightRTF As String 
Private mstrCitationText As String 
Private mbolCitationlsHighlight As Boolean 

Private mcolSuggestions As Collection 
Private mstrAllSuggestionsHighlightRTF As String 
Private mstrAllSuggestionsNormalRTF As String 
Private mstrAllSuggestionsText As String 
Private mbolSuggestionlsHighlight As Boolean 

Private mstrSelectedChangeRTF As String 
Private mlngActiveSelection As Long 

Private mlngSuggestionStart () As Long 
Private mlngSuggestionEnd( ) As Long 

Private itibolModal As Boolean 

Private Const bcCitationText = -1 

Private Const bcSuggestionText = -2 

Private Const SUGGESTI ON_NORMAL As Long = 795 

Private Const SUGGESTION_EXPANDED As Long = 1750 

Public Property Get Suggest ionsCount ( ) As Long 

If mcolSuggestions Is Nothing Then 
Suggest ions Count = 0 

Else 

Suggest ionsCount = mcolSuggestions . Count 
End If 

End Property 

Publil:: Property Get SelectedChangeRTF ( ) As String 

Select edChangeRTF = mstrSelectedChangeRTF 
End Er/qperty 

Public isub AddCitation(ByVal CitationNormalRTF As String, ByVal CitationHighlightRTF As String) 

lisfirCitat ionNormalRTF = CitationNormalRTF 
iistrCitationHighlightRTF - CitationHighlightRTF 

WS*h rtfCitation 

. TextRTF = CitationHighlightRTF 
£r a mstrCitationText = .Text 
Etid With 

rafeelCitationlsHighlight = True 
End Si|| 

PublgpSub AddSuggestion(ByVal Suggest ionNormalRTF As String, ByVal SuggestionHighlightRTF As String) 
ijfffft IngSuggestionNumber 

|£l mcolSuggestions Is Nothing Then Set mcolSuggestions = New Collection 
mcolSuggestions .Add Suggest ionNormalRTF 

IngSuggestionNumber = Suggest ionsCount 

If IngSuggestionNumber = 1 Then 

lblSuggestion. Enabled = True 

rtf Suggestion . TextRTF = 
End If 

ReDim Preserve mlngSuggestionStart (1 To IngSuggestionNumber) 
ReDim Preserve mlngSuggestionEnd{l To IngSuggestionNumber) 

With rtf Suggest ion 

If IngSuggestionNumber > 1 Then 

Call ExpandSuggestions 

.SelStart - Len(.Text) 

.SelText = vbCrLf 

.SelAlignment = rtf Center 

. SelText = " or " 

.SelText = vbCrLf 

.SelAlignment = rtf Left 
End If 

mlngSuggestionStart (IngSuggestionNumber) = .SelStart 
. SelRTF = SuggestionHighlightRTF 

mlngSuggestionEndt IngSuggestionNumber) = .SelStart - 1 
End With 

mbolSuggestionlsHighlight = True 
End Sub 
. Public Sub PrepareData ( ) 



Dim bcRichText As New cRichText 
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mstrAllSuggestionsText = rtf Suggestion . Text 
mstrAllSuggestionsHighlightRTF = rtf Suggestion . TextRTF 

If SuggestionsCount > 1 Then 
With bcRichText 

. TextRTF = mstrAllSuggestionsHighlightRTF 

.SelStart = 1 
.SelLength ~ Lent. Text) 
.SelColor = vbBlack 

mstrAHSuggestionsNormalRTF = .TextRTF 
End With 
End If 

End Sub 

Public Sub MakeModaM) 

If SuggestionsCount = 1 Then 

mlngActiveSe lection = 1 

cmdChange . Enabled = True 

cmdChange. SetFocus 
End If 

Screen. MousePointer = vbDefault 

mbolModal = True 
Do 

DoE vents 
Loop Until mbolModal = False 

End Sub 

Public Sub MakeModeless () 

mbolModal = False 

Screen. MousePointer - vbHourglass 
SeJ; mcolSuggestions = Nothing 
caadlgnoreRule. Enabled = False 
cHjCCgnore. Enabled = False 
exchange. Enabled = True 
cmdChange . Set Focus 
cmifchange . Enabled = False 
rfefSuggest ion. Text = "" 
3?fe| Suggest ion. Locked = True 
Mi Suggest ion. Enabled = True 
Excitation. Text = 
recitation. Locked = True 
ajyllcitation. Enabled = True 
rggRule.Text = "" 
te§t Err or Message. Text = "" 
lblSuggestion. Enabled = False 
ContractSuggestions 

^Events 

End Sjsb 

Private Sub chkShowRule_Click( ) 
ififi IngOffset As Long 



IngOffset = rtf Rule. Height 
If chkShowRule. Value = 0 Then 

rtf Rule. Visible = False 

Me. Height = Me. Height - IngOffset 

Else 

rtf Rule. Visible = True 
Me. Height = Me. Height + IngOffset 
End If 

End Sub 

Private Sub cmdCancel„Click ( ) 

Result = Cancel 
Call MakeModeless 
Me. Hide 

End Sub 

Private Sub cmdChange_Click { ) 

Select Case mlngActiveSelection 

Case Is >= 1 . 

mstrSelectedChangeRTF = mcolSuggestions (mlngActiveSelection) 

Case Is = bcCitationText 

mstrSelectedChangeRTF = rtf Citation. TextRTF 
Case Is = bcSuggestionText 

mstrSelectedChangeRTF = rtf Suggest ion. TextRTF 
End Select 

Result = Change 
Call MakeModeless 

End Sub 



Private Sub cmdlgnore^Click { ) 
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Result = Ignore 
Call MakeModeless 

End Sub 

Private Sub cmdIgnoreRule_Click ( ) 

Result = ignoreRule 
Call MakeModeless 

End Sub 

Private Sub Form_Click() 

Me . SetFocus 
End Sub 

Private Sub lblCitation_Click ( ) 

Me . SetFocus 
End Sub 

Private Sub lblSuggestion_Click { ) 

Me. SetFocus 
End Sub 

Private Sub Picturel_Click ( > 
End Sub 

Private Sub rt fCi tat ion_C lick ( ) 

Dim IngSelectionStart As Long 
Dim IngSelectionLength As Long 

I^mbolCitationlsHighlight Then 

'iU 

*. v 3 With rtfCitation 

IngSelectionStart = .SelStart 
\i IngSelectionLength = . SelLength 

|f! rtfCitation. TextRTF = mstrCitationNormalRTF 

= mbolCitationlsHighlight = False 

. Locked = False 

.SelStart = IngSelectionStart 
Jftt .SelLength = IngSelectionLength 

" r End With 

mbolCitationlsHighlight = False 

Hi if 

End 4^1* 

Private Sub rtf Citation_LostFocus ( ) 

& rtf Citation. Text = mstrCitationText Then 
Lib Call ResetCitation 

If rtf Suggestion. Text = " " Then Call ResetSuggestion 
End If 

End Sub 

Private Sub rtf Citation_KeyPress (KeyAscii As Integer) 

rtf Suggestion. Text = "" 

rtf Suggest ion. Enabled = False 

lb 1 Suggestion. Enabled = False 

If KeyAscii = 13 Then 

KeyAscii = 0 

Call cmdChange_Click 
End If 

mlngActiveSelection = bcCitationText 
cmdChange. Enabled = True 
cmdChange . SetFocus 
DoEvents 

End Sub 

Private Sub ResetCitation ( ) 

With rtfCitation 
.Locked = True 
.Enabled = True 

. TextRTF = mstrCitationHighlightRTF 
End With 

mbolCitationlsHighlight = True 
End Sub 

Private Sub txtErrorMessage_Click( ) 
Me. SetFocus 
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2. 



End Sub 

Private Sub rtf Suggestion_Click { ) 

Dim lngSelectionStart As Long 
Dim IngSelectionLength As Long 
Dim i As Long 

Dim IngCursorPosition As Long 



With rtf Suggest ion 

If Suggest ionsCount = 1 Then 

If mbolSuggestionlsHighlight Then 

lngSelectionStart = .SelStart 
IngSelectionLength = . SelLength 

. Text RTF = mcol Suggest ions (1) 
mbolSuggestionlsHighlight = False 
.Locked = False 

.Sen Start = lngSelectionStart 
.SelLength = IngSelectionLength 
End If 

El self Suggest ionsCount > 1 Then 

IngCursorPosition = .SelStart 

mlngActiveSelection - 0 

For i = 1 To SuggestionsCount 

If IngCursorPosition >= mlngSuggestionStart (i) And IngCursorPosition <= mlngSuggestionEnd(i) Then 
.SelStart = mlngSuggestionStart ( i) 

.SelLength = mlngSuggestionEnd(i) - mlngSuggestionStart {i) + 1 
cmdChange . Enabled = True 
mlngActiveSelection = i 
fx? Exit For 

Next i 

If mlngActiveSelection - 0 Then 
cmdChange .Enabled = False 
|J1 Me . SetFocus 

End If 

End If 
Mi With 



End Sub 

FrierklSub rtf Suggest ion„Lost Focus ( ) 

rtf Suggest ion. Text = mstrAllSuggestionsText Then 
| 5 I Call ResetSuggestion 
End If 

End fab 

Private Sub rtf Suggest! on_KeyPress (KeyAscii As Integer) 

rtf Citation. Text = "" 

rtf Citation. Enabled = False 

If KeyAscii =13 Then 

KeyAscii = 0 

Call cmdChange_Click 
End If 

mlngActiveSelection = bcSuggestionText 
cmdChange . Enabl ed = True 
cmdChange . SetFocus 
DoEvents 

End Sub 

Private Sub ResetSuggestion () 

With rtf Suggestion 
.Locked = True 
.Enabled = True 

. TextRTF = mstrAll Suggest ionsHighlightRTF 
End With 

mbolSuggestionlsHighlight = True 
End Sub 

Private Sub Form_Load() 

IsOnTop Me.hwnd, True 
chkShowRule. Value = 0 

Me . Show 

Screen. MousePo inter = vbHourglass 
DoEvents 
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End Sub 

Private Sub Form_QueryUn load (Cancel As Integer, UnloadMode As Integer) 

■ If the user presses the close button from the control menu, stop the form from unloading and instead follow the shutdown 
' procedure invoked from the Cancel button. 

If UnloadMode = vbFormControlMenu Then 
cmdCancel. Value = True 
Cancel = True 

Else 

Cancel = False 
End If 

End Sub 

Friend Sub ExpandSuggestions { ) 
Dim ctlCurrent As Control 



If Me. rtf Suggest ion. Height <> SUGGESTION_EXPANDED Then 

For Each ctlCurrent In Me. Controls 

If TypeOf ctlCurrent Is Line Then 

ctlCurrent Yl = ctlCurrent .Yl + ( SUGGEST I ON_EXPANDED - SUGGESTION__NORMAL) 

ctlCurrent. Y2 = ctlCurrent .Y2 + (SUGGEST I ON_EXPANDED - SUGGESTION_NORMAL) 

E1Se if ctlCurrent. Top > Me . rtf Suggestion . Top Then ctlCurrent . Top = ctlCurrent . Top + { SUGGEST I ON_EXPANDED - SUGGE ST I ON__NORMAL ) 
End If 
Next ctlCurrent 

Me Heiaht = Me. Height + (SUGGESTION_EXPANDED - SUGGESTI ON_NORMAL ) 

Me Ir^fluggestton. Height = Me. rtf Suggest ion. Height + (SUGGESTION.EXPANDED - SUGGEST I 0N_NORMAL) 
End If 
End Sub 

FriencElSub ContractSuggestions ( ) 
Dirti ctlCurrent As Control 

XtfMe.rtf Suggest ion. Height <> SUGGE ST I ON_NORMAL Then 

For Each ctlCurrent In Me. Controls 
f*'* If TypeOf ctlCurrent Is Line Then 

CtlCurrent Yl = ctlCurrent . Yl - { SUGGESTI ON_EXPAND ED - SUGGESTION_NORMAL) 
Us ctlCurrent. Y2 = ctlCurrent .Y2 - { SUGGEST ION_EXPANDED - SUGGEST ION_NORMAL) 

^ ElSS If ctlCurrent. Top > Me. rtf Suggestion. Top Then ctlCurrent . Top = ctlCurrent. Top - (SUGGESTION.EXPANDED - SUGGEST I0N_N0RMAL) 

£ End If 

Next ctlCurrent 

W Me Height = Me. Height - ( SUGGESTI ON_EXPAND ED - SUGGEST ION„NORMAL) 

fy Me'.rtfluggestion. Height = Me. rtf Suggestion. Height - ( SUGGEST ion_expanded - SUGGESTI ON_NORMAL) 
$ak if 



End tub 
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Option Explicit 

Private mstrForCourt As String 

Public Property Get ForCourt ( ) As String 

ForCourt = mstrForCourt 
End Property 

Private Sub Form_Load() 

Dim bcJurisdiction As cJurisdiction 



isOnTop Me.hwnd, True 

For Each bcJurisdiction In Jurisdictions 

If Not (bcJurisdiction. FullName = "Federal"} 
Next bcJurisdiction 

optDocType { 0 ) .Value - False 
optDocType (1) .Value = False 
optDocType ( 2 ). Value = False 

End Sub 

Private Sub cmdOK_Click ( ) 

If optDocType (0) -Value = True And cmbState . Text 

mstrForCourt = cmbState .Text 
Elself optDocType (1) .Value = True Then 

mstrForCourt = "Federal" 
Elself optDocType (2) .Value = True Then 

mstrForCourt = "None" 
End If 



Then cmbState. Addltem {bcJurisdiction . FullName) 



<> " " Then 



Me. Visible - False 
Debug. Print mstrForCourt 

End S|D$ 

Privajfe Sub cmdCancel„Click{ ) 

Reset the display to the saved value. 
Select Case mstrForCourt 
|p Case "None" 

"f" optDocType (2) .Value = True 

Case " Federal " 

optDocType (1) .Value = True 
t&s Case " " 

.In optDocType (0) .Value = False 

optDocType (1) .Value = False 

2 optDocType (2) .Value = False 

t*si cmbState. Enabled = False 

M cmdOK. Enabled = False 

tVz Case Else 

optDocType (0) .Value = True 

Q cmbState. Text = mstrForCourt 

En^d Select 

Invisible = False 
End py&> 

Private Sub optDocType_Click( Index As Integer) 



Select Case Index 



Case 0 

1 — "For state" selected. 
IblState . Enabled = True 
cmbState. Enabled = True 
cmbState . SetFocus 

If cmbState . Text <> "" Then cmdOK . Enabled = True 
Case 1, 2 

' — "For federal" or "other" selected. 
IblState . Enabled = False 
cmbState. Enabled = False 
cmdOK. Enabled = True 

End Select 

End Sub 

Private Sub cmbState_Click { ) 

If optDocType {0} .Value = True And cmbState . Text <> "" Then cmdOK. Enabled = 



End Sub 
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Option Explicit 

Private Const SWF_NOSIZE = &H1 
Private Const SWP_NOMOVE = &H2 
Private Const HWND_TOPMOST = -1 
Private Const HWND_NOTOPMOST = -2 

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ 
ByVal hWndlnsertAfter As Long, ByVal x As Long, ByVal y As Long, _ 
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 

Public Sub IsOnTop(hwnd As Long, bOnTop As Boolean) 

Dim x As Long 



x = SetWindowPos (hwnd, HWND_TOPMOST , 0, 0, 0, 0, SWP_N0M0VE Or SWP_NOSIZE) 

E1 T= SetWindowPos (hwnd, HWND_NOTOPMOST , 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE> 
End If 



End Sub 
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copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mbolStartOf Phraselnitialized As Boolean 
Private Const CASENAME_PLACEHOLDER As String = " 



Public Sub CheckCaseNameO 

Dim IngVPos As Long 
Dim strVText As String 
Dim strOrigName As String 



mbolStartOfPhraselnitialized = False 

If Not Citation. CaseNameClause Is Nothing Then 

If Not Citation. CaseNameClause. Text = CASENAME_PLAC EH OLDER Then 

Call ChecklncorrectVersusText 

If Error Form. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMultipleVersus 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckEtAlAndDBA 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldBeExRel 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldBelnRe 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckVersusFollowsProcedural Phrase 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Cal 1 CheckMultiple Procedural Phrases 
0 If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call Che cklnRe Punctuation 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExPartePunctuation 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExRelPunctuation 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckFirstWordAbbreviated 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckThe 

If ErrorForm. Result = Change Or ErrorForm. Result - Cancel Then Exit Sub 
Call CheckDescriptiveTerms 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUsesStateOf 

If ErrorForm. Result = Change Or ErrorForm. Result - Cancel Then Exit Sub 
Call CheckShouldNotUseState 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldUseState 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckCityOf 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckPrepositionalPhraseOfLocation 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckOf America 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckBusinessFirmDesignations 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnion 

If ErrorForm. Result = Change Or ErrorForm. Result - Cancel Then Exit Sub 
Call CheckCIR 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldAbbreviate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnitedStates 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Else 



Call CheckMissingCaseNameClause 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



End If 
End If 



End Sub 
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Private Sub CheckMissingCaseNameClause ( ) 

'— If the citation doesn't have a case name clause, then suggest inserting a placeholder. 

If Citation. CaseNameClause Is Nothing Then 

Call ErrorForm. LoadError ("CaseName MissingCaseNameClause" , 0, 0) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (Citation. CitationStart , " v. ") 

Call ErrorForm. Activate 
End If 
End If 

End Sub 



Private Sub ChecklncorrectVersusText ( ) 

If the abbreviation for versus is not spelled as "v." with a trailing space, then suggest correcting i 

Dim i As Long 

Dim strWordTrim As String 

Dim IngVersusEnd As Long 

For i = Citat ion. CaseNameClause. PartyName(l) .Start To Citation. CaseNameClause . ClauseEnd 
strWordTrim = ActiveDoc .Words.WordsTrim(i) 



3=r 



If strWordTrim = "v" _ 

Or strWordTrim = "vs" 

Or strWordTrim = "versus" Then 

IngVersusEnd = ActiveDoc.Words.NextFullWord(i) - 1 

■ — Is "versus" abbreviated incorrectly? 
'» Jones vs. Smith, 200 U.S. 500, 505 (1980) 

If ActiveDoc.Words(i, IngVersusEnd) <> "v." Then 

Call ErrorForm. LoadError ("CaseName IncorrectVersusText A" , i, IngVersusEnd) 
: If Not ErrorForm. IgnoreError Then 

? Call ErrorForm. Suggestion, Changed, IngVersusEnd, "v.") 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

.J? 1 — Is there no space after the abbreviation of "versus"? 

If! •» Jones v.Smith, 200 U.S. 500, 505 (1980) 

^ b El self ActiveDoc. Words. SpacesAf terWord( IngVersusEnd) = 0 Then 

*ll Call Error Form. LoadError ("CaseName IncorrectVersusText B", i, IngVersusEnd) 

s&I If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Change (i , IngVersusEnd, "v.") 
3 Call ErrorForm. Activate _ 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

if* End If 

\Z End If 

ill End If 

Next i 

End fab 

Private Sub CheckMultipleVersus ( ) 

If the case name has more than one abbreviations of "versus," then suggest deleting the subsequent versus. 



Dim i As Long 
Dim strWordTrim As String 
Dim IngPriorComma As Long 
Dim IngVersusEnd As Long 



If Ci tat ion. CaseNameClause. Part iesCount > 1 Then 

For i = Citation. CaseNameClause. PartyName{2) .Start To Citation. CaseNameClause . ClauseEnd 
strWordTrim = ActiveDoc. Words, WordsTrim(i) 

If strWordTrim = "v" _ 

Or strWordTrim = "vs" _ 

Or strWordTrim = "versus" Then 

■— Search for a comma that falls between this versus and the first versus. 
IngPriorComma = LocateWord{i - 1, Citat ion. CaseNameClause. Versus Posit ion, False, ",") 

■— If a prior comma was found, then suggest deleting it and all subsequent text. 
» Jones v. Smith, Smith v. Jones, 200 U.S. 500, 505 (1980) 
If IngPriorComma > 0 Then 

Call ErrorForm. LoadError ( "CaseName Multiple Versus 1", IngPriorComma + 1, Citation. CaseNameClause. ClauseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete ( IngPriorComma , Citation . CaseNameClause . ClauseEnd) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

'-- Otherwise, just ask the user to fix the error manually. 
» Jones v. Smith Smith v. Jones, 200 U.S. 500, 505 (1980) 
Else 

IngVersusEnd = ActiveDoc . Words .NextFullWord ( i) - 1 
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Call ErrorForm. LoadErrorP CaseName MultipleVersus 2", i, IngVersusEnd) 
If Not ErrorForm. IgnoreError Then 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 



End If 
Next i 
End If 



End Sub 



Private Sub CheckEtAlAndDBA ( ) 

•- Rule 10.2.1(a): If the case name contains the phrase "et al . • or "d/b/a", then suggest deleting that phrase and the 

remaining text in that party's name. 
'» Franklin et al . v. Amanant, 200 U.S. 500, 505 {1980) 
<» Franklin v. Amanant d/b/a The Man, Inc., 200 U.S. 500, 505 (1930) 



Dim i As Long 
Dim IngPhraseEnd As Long 
Dim IngDeleteStart As Long 
Dim strErrorKey As String 



For i = Citation. CaseNameClause . PartyName ( 1) .Start To Citation. CaseNameClause .ClauseEnd 

IngPhraseEnd = IsStartOf Phrase (i , "etal", True) 
If IngPhraseEnd > 0 Then 

strErrorKey - "CaseName EtAlAndDBA A" 

Else 

IngPhraseEnd = IsStartOf Phrased, "dba" , True) 
If IngPhraseEnd > 0 Then 

strErrorKey = "CaseName EtAlAndDBA B" 
End If 
End If 



= \ if IngPhraseEnd > 0 Then 

|p If Ac tiveDoc .Words (i - 1) = 

IngDeleteStart = i - 1 

'M Else 

% = IngDeleteStart = i 

" !S End If 



Call ErrorForm 



LoadError( strErrorKey, IngDeleteStart, Citation. CaseNameClause . PartyNameAtWord(i) .End, Ac tiveDoc .Words ( i , IngPhr 



If Not ErrorForm. IgnoreError Then , , M _ , x 

Call ErrorForm. Suggest ion. Delete (IngDeleteStart, Citation. CaseNameClause. Par tyNameAtWord (i) .End) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 

End Su£> 

Priv^E^ Sub CheckShouldBeExRel ( ) 



tl Rule 10.2.1(b): If the case name contains the phrases "on... of," "for... of," or "by and through," then suggest changing the 
* : phrase to "ex rel . " 



Dim i As Long 
Dim IngOf Location As Long 
Dim strWordTrim As String 
Dim IngPhraseEnd As Long 



' — Look for the phrase "on... of" 

•» Jones on Behalf of the Application of Smith v. Johnson, 200 U.S. 500, 505 (1980) 
'mi TO DO: Change this so the second party's name is checked as well. 

For i = Citation. CaseNameClause. PartyName(l) .Start To Citation. CaseNameClause .ClauseEnd 
strWordTrim = Ac tiveDoc .Words .WordsTrim( i ) 
If strWordTrim = "on" Or strWordTrim = "for" Then 

IngOfLocation = LocateWord (Citation. CaseNameClause. PartyName (1) . End, i + 2, True, "of") 
If IngOfLocation > 0 Then 

If Act iveDoc. Words. WordsTrim( IngOfLocation + 1) = "the" Then 
IngPhraseEnd = IngOfLocation + 1 

Else 

IngPhraseEnd = IngOfLocation 
End If 

Call ErrorForm. LoadError ("CaseName ShouldBeExRel - , i, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion.Change (i, IngPhraseEnd, "ex rel.") 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End if 

End If 



End If 
Next i 



2$ 
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'-- Look for the phrases "by and through" and "for the use of" 
'» Jones by and through Smith v. Johnson, 200 U.S. 500, 505 {1980) 

For i = Citation. CaseNameClause. PartyName (1) .Start To Citation. CaseNameClause . ClauseEnd 
IngOfLocation = IsStartOf Phrase (i, "byandthrough" , False) 

If IngOfLocation = 0 Then IngOfLocation = IsStartOf Phrase (i , "fortheuseof " , False) 
If IngOfLocation > 0 Then 

Call ErrorForm.LoadError ("CaseName ShouldBeExRel " , i, IngOfLocation) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion.Change (i, IngOfLocation, "ex rel . u ) 

Call ErrorForm. Activate . 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 

End If 
Next i 

End Sub 

Private Sub CheckShouldBelnRe ( ) 

•-- Rule 10.2.1(b): If the first word of the case name is "in," "petition," or "application" and that word is followed by "of," 
then suggest changing the phrase to "In re". 

'» in the Matter of the Application of Smith, 200 U.S. 500, 505 (1980) 
'» Matter of the Application of Smith, 200 U.S. 500, 505 (1980) 
'» Petition of Smith, 200 U.S. 500, 505 (1980) 

Dim i As Long 

Dim IngOfLocation As Long 

Dim strFirstWordTrim As String 

Dim strSecondWordTrim As String 

With Citation. CaseNameClause 

StrFirstWordTrim = Ac tiveDoc. Words. WordsTrim{ . PartyName (1) .Start) 
strSecondWordTrim = Act iveDoc .Words .WordsTrim{ . PartyName (1) . Start + 1) 

r-s If {strFirstWordTrim = "in" And strSecondWordTrim <> "re") „ 

Or strFirstWordTrim - "petition" _ 
'|U Or strFirstWordTrim - "application" _ 

Or strFirstWordTrim = "matter" Then 

\: 

\A IngOfLocation = LocateWord(. ClauseEnd, . PartyName (1) .Start + 1, True, "of") 

_2f If IngOfLocation > 0 Then 

Call ErrorForm.LoadError {"CaseName ShouldBelnRe " , . PartyName (1) -Start, IngOfLocation) 
M If Not ErrorForm. IgnoreError Then _ 

call ErrorForm. Suggestion. Change {. PartyName (1) .Start, IngOfLocation, In re ) 
Call ErrorForm. Activate . 
If- !f ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

^' End If 

i«i End If 

jffl End If 
|h| With 
End Mb 

Privfee Sub checkVersusFollowsProceduralPhrase ( ) 

t Rule 10.2.1(b): If a designation of "versus" follows "In re" or "Ex parte," then suggest deleting the procedural phrase. 
'» In re Jones v. Smith, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 

With Citation. CaseNameClause 

If .VersusPosition > 0 Then 

IngPhraseEnd ^ IsStartOf Phrase { .PartyName {1) .Start, "inre", True) 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOf Phrase (. PartyName { 1) . Start , "exparte , True) 
If IngPhraseEnd > 0 Then 

Call ErrorForm. LoadEr r or { "CaseName VersusFollowsProceduralPhrase" , . PartyName (1) . Start , IngPhraseEnd, Act iveDoc .Words (. Part 

yName (2 } . Start , . PartyName (2 ) . End) ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete { .PartyName (1) .Start, IngPhraseEnd) 

Call ErrorForm. Activate 
End If 

End If 
End If 

End With 

End Sub 

Private Sub CheckMultipleProceduralPhrases { ) 

<- Rule 10.2.1(b): If "ex rel." follows a designation of "In re" or "Ex parte," then suggest deleting "ex rel." and all of 

the text that follows it. 
'» In re Jones ex rel. Smith, 200 U.S. 500, 505 (1980) 



Dim IngEndOfFir st Phrase As Long 
Dim IngEndOfSecondPhrase As Long 
Dim i As Long 
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With Citation. CaseNameClause 

IngEndOf Firs tPhrase = IsStartOf Phrase ( .Par tyName(l) .Start, "inre", True) 

If IngEndOfFirstPhrase = 0 Then IngEndOfFirstPhrase = IsStartOf Phrase (. Par tyName { 1 ). Start , exparte , True) 

If IngEndOfFirstPhrase > 0 Then 

For i = IngEndOfFirstPhrase + 1 To .ClauseEnd 

IngEndOfSecondPhrase = IsStartOf Phrase (i, "exrel" , True) 

If IngEndOfSecondPhrase > 0 Then 

Call ErrorForm. LoadErrorC'CaseName MultipleProceduralPhrases" , i, .ClauseEnd, Ac tiveDoc .Words (i f IngEndOfSecondPhrase), 
Ac t iveDoc. Words (.Par tyName (1) .Start, IngEndOfFirstPhrase) ) 
If Not ErrorForm.IgnoreError Then 

Call ErrorForm. Suggestion.Deleted, .ClauseEnd) 
Call ErrorForra. Activate 

If Error Form. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 

Next i 
End If 

End With 

End Sub 

Private Sub Check InRePunctuati on ( ) 

'-- Rule 10.2.1(b): If "In re" is incorrectly punctuated or capitalized, then suggest correcting it. 
'» In Re. Jones, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 



With Citation. CaseNameClause 

y IngPhraseEnd = IsStartOf Phrase (. PartyName ( 1) . Start, "inre", True) 
=11 If IngPhraseEnd > 0 Then 

Ci If Act iveDoc. Words (. PartyName (1) .Start, IngPhraseEnd) <> "In re" Then 

%l Call ErrorForm. LoadEr r or ("CaseName InRePunctuation" , . PartyName (1) . Start , IngPhraseEnd) 

If Not ErrorForm.IgnoreError Then 
iff call ErrorForm. Suggestion. Change { .PartyName (!) .Start, IngPhraseEnd, "Inre") 

T' m " Call ErrorForm. Activate 

jh= If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 

J?" End If 

"-' r End If 

f&d With 

End ffrp 

Privfle Sub CheckExPartePunctuation( ) 

M- Rule 10.2.1(b): If "Ex parte" is incorrectly punctuated or capitalized, then suggest correcting it. 
W Ex Parte Jones, 200 U.S. 500, 505 (1980) 

Sjtfti IngPhraseEnd As Long 



With Citation. CaseNameClause 

IngPhraseEnd = IsStartOf Phrase (. PartyName (1) . Start , "exparte", True) 
If IngPhraseEnd > 0 Then 

If Ac tiveDoc. Words {. PartyName (1) .Start, IngPhraseEnd) <> "Ex parte" Then 

Call ErrorForm. LoadError ( "CaseName ExPartePunctuation", . PartyName (1) . Start , IngPhraseEnd) 

If Not ErrorForm.IgnoreError Then 

Call ErrorForm. Suggestion. Change ( .PartyName (1) .Start, IngPhraseEnd, "Exparte') 

Call ErrorForm. Activate _ 

If ErrorForm. Result = Change Or ErrorForm. Result - Cancel Then Exit Sub 

End If 

End If 
End If 

End With 

End Sub 

Private Sub CheckExRelPunctuationt ) 

■— Rule 10.2.1(b): If "ex rel . " is incorrectly punctuated or capitalized, then suggest correcting it. 
'» Smith exrel. Jones, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 
Dim i As Long 



With Citation. CaseNameClause 

For i = . PartyName (1) .Start + 1 To .ClauseEnd - 1 

IngPhraseEnd = IsStartOf Phrase (i , "exrel", True) 
If IngPhraseEnd > 0 Then 
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If ActiveDoc.Wordsd, IngPhraseEnd) <> "ex rel . " Then 

Call ErrorForm.LoadError ( "CaseName ExRelPunctuation" , i, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Changed, IngPhraseEnd, "ex rel.") 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 
End If 
Next i 



End With 



End Sub 



Private Sub CheckFirstWordAbbreviatedt ) 

'— Rule 10.2.1(c) : If the first word of a party name is an abbreviation (either an abbreviation from Table 6 or an 

unrecognized abbreviation) then suggest expanding it. 
'» Univ. of Minn. v. Smith, 200 U.S. 205, 210 (1980) 



Dim IngParty As Long 
Dim IngNameStart As Long 
Dim IngNameEnd As Long 



With Citation. CaseNameClause 



For IngParty = 1 To . PartiesCount 

IngNameStart = . PartyName ( IngParty) . Start 

• "C I R " and "U.S." are handled elsewhere. 

If Not* (IsStartOf Phrase (IngNameStart, "cir", False) > 0 Or IsStartOf Phrase ( IngNameStart , "us", False) > 0) Then 
IngNameEnd = . PartyName (IngParty) . End . 
Call CheckImproperAbbreviation( IngNameStart, IngNameEnd, "CaseName FirstWordAbbreviated > 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 
^ Next IngParty 

End With 

ij 

End S*0| 

Priva%?| Sub CheckTheO 

'Ul Rule 10.2.1(d): If the first word of a party name is "The," then suggest deleting it unless it is part of the phrase 

'= : "The King," "The Queen," or "The ... case(s)." 

*>> The Univ. of Minn. v. Smith, 200 U.S. 205, 210 (1980) 

EfjgLm IngParty As Long 
Bjm IngNameStart As Long 
Dim IngThe Posit ion As Long 

l||:t:h Citation. CaseNameClause 

For IngParty = 1 To .PartiesCount 
I J IngNameStart = . PartyName (IngParty) . Start 

^ s= If Ac t i veDoc. Words .WordsTrimf IngNameStart) = "the" Then 

f s | IngThePosition = IngNameStart 

h-i is "The" not immediately followed by "King" or "Queen", and not followed by "Case" or "Cases"? 

If Not ( Ac tiveDoc. Words. WordsTrim( IngThePosition + 1) = "queen" _ 
Or ActiveDoc .Words .WordsTrim( IngThePosition + 1) = "king" _ 

Or LocateWord( IngThePosition + 1, .ClauseEnd, True, "case", "cases") > 0) Then 

Call ErrorForm.LoadError ("CaseName The", IngThePosition, IngThePosition) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngThePosition, IngThePosition) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 



End If 
Next IngParty 



End With 



End Sub 



Private Sub CheckDescriptiveTerms ( ) 

Rule 10.2.1(e): If the name of a party ends in a word that describes a party, like "administrator," "appellee," 
"executor," then suggest deleting that word. 
'» Smith, Trustee v. Jones, 200 U.S. 500, 505 (1980) 



Dim IngParty As Long 
Dim IngNameEnd As Long 
Dim strWordTrim As String 
Dim IngDeleteStart As Long 



For IngParty = 1 To Citation. CaseNameClause . PartiesCount 

IngNameEnd = Citation . CaseNameClause . PartyName ( IngParty) . End 

If IngNameEnd > Citation. CaseNameClause. PartyName (IngParty) .Start Then 
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Si 



strWordTrim = Ac tiveDoc.Words.WordsTrim( IngNameEnd) 
If Len{ strWordTrim) > 5 Then 

< — First, look for known descriptive terms. 

If strWordTrim = "administrator" _ 

Or strWordTrim = "appellee" _ 

Or strWordTrim = "appellant" _ 

Or strWordTrim = "executor" _ 

Or strWordTrim = "executrix" _ 

Or strWordTrim = "licensee" _ 

Or strWordTrim = "licensor" _ 

Or strWordTrim = "trustee" Then 

If Ac tiveDoc. Words (IngNameEnd - 1) = "," Then 
IngDelete Start = IngNameEnd - 1 

Else 

IngDeleteStart - IngNameEnd 
End If 

Call ErrorForm. LoadError( "CaseName DescriptiveTerms A", IngNameEnd, IngNameEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngDeleteStart, IngNameEnd) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

•— Second, identify other descriptive terms by looking to their suffixes, but only if preceeded by a comma. 

Then 



Elself 


Ac tiveDoc .Words (IngNameEnd - 1) = 


If 


Right$ {strWordTrim, 


2) 


= "or" 


Or 


Right$ (strWordTrim, 


3) 


_ «« orS " _ 


Or 


Right $ (strWordTrim, 


3) 


= "ant" _ 


Or 


Right $ (strWordTrim, 


4) 


- "ants" _ 


Or 


Right$ (strWordTrim, 


2) 


= "ee" _ 


Or 


Right $ (strWordTrim, 


3) 


= "ees" _ 


Or 


Right$ (strWordTrim, 


3) 


» r i x » _ 


Or 


Right $ (strWordTrim, 


5) 


- " rixes" ' 



IngDeleteStart = IngNameEnd - 1 

Call ErrorForm. LoadErrorC CaseName DescriptiveTerms B", IngNameEnd, IngNameEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngDeleteStart, IngNameEnd) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 



End If 
End If 



^ End If 
fljext IngParty 

End |pf> 

Private Sub CheckUsesStateOf { ) 

Rule 10 2 1(f)- If the case name contains "State of [State]", "Commonwealth of [State]" or "People of [State]", 
^ and [sS is'tne Jurisdiction of the citation, suggest deleting "of [state]." If, however, the citation has a different 
M -jurisdiction, then suggest deleting "State/Commonwealth/ People of." 

i As Long 
Dim strPriorWordTrim As String 
Dim IngOf Posit ion As Long 
Dim bcMatchingJur As c Jurisdiction 
Dim IngJurEnd As Long 
Dim IngDeleteStart As Long 

For i = Ci tat ion. CaseNameClause.PartyName (1) . Start + 1 To Citation . CaseNameClause . ClauseEnd 

If Ac tiveDoc. Words .WordsTrim(i) = "of" Then 

IngOf Position = i m . 

strPriorWordTrim = ActiveDoc .Words .WordsTrim( IngOf Position - 1) 

If (strPriorWordTrim = "state" Or strPriorWordTrim = "commonwealth" Or strPriorWordTrim = "people") Then 

Set bcMatchingJur = Jur isdictionAtWord{ Ac tiveDoc .Words .NextFullWord( IngOf Position) , IngJurEnd) 
If Not (bcMatchingJur Is Nothing) Then 

■-- Is the jurisdiction that follows the "State/Commonwealth/People of" phrase the same as the state 
court for which this is being submitted (if any)? 

If bcMatchingJur Is Citation. Jurisdiction Then 

If so, suggest deleting "of [jurisdiction]" 
» State of Minnesota v. Jones, 200 N.W.2d 200, 205 (Minn. Ct . App. 1990) 

Call ErrorForm. LoadErrort "CaseName UsesStateOf A", IngOf Position, IngJurEnd, AddArticle (bcMatchingJur . FullName) ) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngOf Position, IngJurEnd) 

If LtlveDoc. Words WordsTrim (IngOf Position - 2) = "the" Then Call ErrorForm. Suggestxon.Delete (IngOf Position - 

, IngOf Position - 2) 

Call ErrorForm. Activate t 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



■ otherwise, suggest deleting "state/ commonwealth/people of" 
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» Jones v. State of Minnesota, 200 M.W.2d 200, 205 (Wis. 1980) 

If ActiveDoc. Words. WordsTrimt IngOf Posit ion - 2) = "the" Then 
IngDeleteStart = IngOf Position - 2 

Else 

IngDeleteStart = IngOf Position - 1 
End If 

Call ErrorForm. LoadError ("CaseName UsesStateOf B", IngDeleteStart, IngOf Position, AddArticle (bcMatchingJur . FullName 

^ If Not ErrorForm. IgnoreError Then t _ 

Call ErrorForm. Suggest ion. Delete (IngDeleteStart, IngOf Position) 
Call ErrorForm. Activate , 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 

End If 

End If 

End If 
Next i 

End Sub 

Private Sub CheckShouldNotUseState ( ) 

•- Rule 10 2 1(f)- If one party's name is simply "State," "Commonwealth," or "People," but the citation has a federal 

jurisdiction, then ask the user to change that party's name to the name of the state. 
'» State v. Jones, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 
Dim IngNameStart As Long 
Dim strWordTrim As String 



lJ_JKTot {Citation. Jurisdiction Is Nothing) Then 
O If Citation. Jurisdiction. FullName = "Federal" Then 
With Citation. CaseNameClause 

S*\ •-- Does the party name consist only of "state," "commonwealth" or "people"? 

For IngParty = 1 To . PartiesCount 
\l If . PartyName( IngParty) .Start = . Part yName ( IngParty ). End Then 

strWordTrim = Act iveDoc . Words. WordsTrim( . Part yName ( IngParty) .Start) 
PJl If strWordTrim = "state" Or strWordTrim = "commonwealth" Or strWordTrim = "people" Then 

M Call ErrorForm. LoadError { "CaseName ShouldNotUseState" , . Par tyName (IngParty) . Start, . Par tyName { IngParty) .End) 

f?| If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Activate , 
iC" !f ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

2 End If 

f"| End If 

2; End If 

||| Next IngParty 

hzS End With 

End If 
|nd If 

End f ub 

Private Sub CheckShouldUseState ( ) 

'- Rule 10 2 1(f) ■ If one party's name consists only of the name of a state, and that state is the same as the citation's 
• jurisdiction, then suggest changing the name of the state to "State," "Commonwealth," or 'People. 
'» Minnesota v. Jones, 200 N.W.2d 200, 205 (Minn. Ct. App. 1990) 



Dim IngParty As Long 

Dim IngNameStart As Long 

Dim strWordTrim As String 

Dim IngJurEnd As Long 

Dim bcMatchingJur As c Jurisdiction 



If Not (Citation. Jurisdiction Is Nothing) Then 

If Citation -Jurisdiction. FullName <> "Federal" Then 
With Citation. CaseNameClause 

Does the party name consist only of the name or abbreviation of a state, and does that name match the 
citation's jurisdiction? 
For IngParty = 1 To .PartiesCount T _ 

Set bcMatchingJur = JurisdictionAtWord( . Par tyName (IngParty) . Start , IngJurEnd) 
If bcMatchingJur Is Citation. Jurisdiction Then 
If IngJurEnd = . Par tyName (IngParty) . End Then 



Call ErrorForm. LoadError ( "CaseName ShouldUseState 
tide (Citation. Jurisdiction. FullName) ) 

If Not ErrorForm. IgnoreError Then 

Call Error Form. Suggest ion. Change ( .Par tyName (IngParty) .Start, 
Call ErrorForm. DisplaySuggestion 

Call ErrorForm. Suggestion. Change ( . Par tyName ( IngParty) .Start, 
Call ErrorForm. DisplaySuggest ion 

Call ErrorForm. Sugges t ion. Change ( . Par tyName (IngParty) .Start, 
Call ErrorForm. Activate 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 



PartyName( IngParty) .Start, . PartyName ( IngParty) . End, AddAr 



"State" ) 



. PartyName ( IngParty) . End, 
.PartyName (IngParty) .End, 
. PartyName ( IngParty) . End, " People" ) 



Commonwealth" ) 
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End If 
End If 
Next IngParty 

End With 
End If 
End If 

End Sub 

Private Sub CheckCityOf ( ) 

'-- Rule 10.2.1(f): If the name contains "City of," "Town of," "Township of," "Borough of," or "County of" and that phrase is 

not the first word of a party name, then suggest deleting the phrase. 
'» Mayor of the City of Minneapolis v. Jones, 200 U.S. 205, 210 (1980) 

Dim i As Long 
Dim IngParty As Long 
Dim IngPhraseEnd As Long 
Dim IngPhraseStart As Long 



With Citation. CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = . PartyName ( IngParty) .Start + 1 To 



, PartyName ( IngParty) . End - 1 



IngPhraseEnd = IsStartOf Phrase ( i , "cityof", False) 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhraseU, 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOf Phrase < i , 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhraseU, 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhraseU, 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhraseU, 

If IngPhraseEnd > 0 Then 



"townof", False) 
"townof", False) 
"townshipof " , False) 
"boroughof " , False) 
"countyof" , False) 



If ActiveDoc.Words.WordsTrimU - 1) = "the" Then 
IngPhraseStart = i - 1 

Else 

IngPhraseStart = i 
End If 

Call ErrorForm. LoadErrorC'CaseName CityOf", IngPhraseStart, IngPhraseEnd) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngPhraseStart, IngPhraseEnd) 

Call ErrorForm. Activate . 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 



f*' s End If 

£fz Next i 
V Next IngParty 
EES With 



Private! Sub CheckPrepos it ionalPhraseOf Location ( ) 



<M Ru ie 10.2.1(f): If a party's name contains "of," and the word "of" is not the first or second word in the party's name, 
s* ? = then suggest deleting it if it is a prepositional phrase of location. 
f£> Jones Corp. of California v. Smith, 200 U.S. 205, 210 (1980) 



E&m i As Long 

Mm IngParty As Long 

gj&i be Jurisdiction As c Jurisdiction 

Dim IngEndOf Phrase As Long 

Dim strPriorWordTrim As String 

Dim strNextWordTrim As String 



With Citation. CaseNameClause 

For IngParty = 1 To .PartiesCount 

For i = .PartyName (IngParty) .Start + 2 To . PartyName ( IngParty) . End - 1 

If ActiveDoc.Words.WordsTrimU) = "of" Then 

'-- These exceptions are handled elsewhere. 
StrPriorWordTrim = Ac tiveDoc .Words .WordsTrim{ i - 1) 

strNextWordTrim = Ac tiveDoc .Words .WordsTrimU +1) , 

If Not (StrPriorWordTrim = "state" Or strPriorWordTrim = "commonwealth" Or strPriorWordTrim = "people") _ 

And Not (strNextWordTrim = "america" Or strNextWordTrim = "am") Then 

Set be Jurisdiction = JurisdictionAtWordU + 1, IngEndOf Phrase) 
If Not (bcJurisdiction Is Nothing) Then 

Call ErrorForm. LoadError ( "CaseName PrepositionalPhraseOf Location A" , i, IngEndOf Phrase) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Deleted, IngEndOf Phrase) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

Else 

Call ErrorForm. LoadError ("CaseName PrepositionalPhraseOfLocation B" , i, . PartyName (IngParty) .End) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Deleted, . PartyName { IngParty) .End) 

Call ErrorForm. Activate . 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 



End If 
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End If 
End If 

Next i 
Next lngParty 
End With 



End Sub 

Private Sub CheckOf America ( ) 

Rule 10.2.1(f): If the case name contains "United States of America," suggest deleting "of America." 
'» Smith v. United States of America, 200 U.S. 205, 210 (1980) 

Dim i As Long 



For i = Citation. CaseNameClause.ClauseStart To Citation. CaseNameClause . ClauseEnd 
If Act iveDoc. Words. WordsTrim{ i , i + 1) = "unitedstates" Then 
If Act iveDoc .Words. WordsTrim(i +2, i +3) = "ofamerica" _ 
Or Ac tiveDoc. Words. WordsTrim(i + 2, i + 3) = "ofam" Then 

Call ErrorForm.LoadError ( "CaseName Of America" , i + 2 
If Not ErrorForm. IgnoreSrror Then 

Call ErrorForm. Suggestion . Delete (i +■ 2, i + 3) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result 
End If 

End if 
End If 
Next i 

End Sub 

Private Sub CheckBus inessFirmDe si gnat ions ( ) 

Rule 10.2.1(h): If a party's name has more than one phrase that designates the party as being a business entity, then 
suggest deleting the later phrase. 

Smith Corp., Inc. v. Jones, 200 U.S. 200, 205 (1980) 

I&ia lngParty As Long 

pi|i i As Long 

D^fi j As Long 

Dim IngPhraseEnd As Long 

Mm IngSecondPhraseEnd As Long 

]|im IngDeleteStart As Long 

H\ 

W.i ; th Citation. CaseNameClause 

For lngParty = 1 To . PartiesCount 
~ For i = . PartyName( lngParty) .Start + 1 To . PartyName ( lngParty ). End 

jjjr 1 ! IngPhraseEnd = IsStartOfBusinessDesignation{ i) 

f|i If IngPhraseEnd > 0 Then 

kz§ For j = IngPhraseEnd + 1 To . PartyName (lngParty) . End 

1^ IngSecondPhraseEnd = IsStartOfBusinessDesignation { j ) 

rf IngSecondPhraseEnd > 0 Then 

J*"" If Acti veDoc. Words (j - 1) = "," Then 

jN= IngDeleteStart - j - 1 

Else 

IngDeleteStart = j 
End If 

Call ErrorForm.LoadError ( "CaseName CheckBus inessFirmDesignation" , j, IngSecondPhraseEnd, Act iveDoc .Words (i , lng 

PhraseEnd) ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngDeleteStart , IngSecondPhraseEnd) 

Call ErrorForm. Activate 

Exit For 
End If 

End If 

Next j 
End If 

Next i 
Next lngParty 

End With 

End Sub 

Private Function IsStartOf BusinessDesignation (Worc^umber As Long) As Long 

IsStartOf BusinessDesignation = IsStartOf Phrase (WordNumber, "inc", True) 
If IsStartOfBusinessDesignation = 0 Then IsStartOf BusinessDesignation - 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 
if IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation - 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation - 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation - 
If IsStartOfBusinessDesignation = 0 Then IsStartOfBusinessDesignation = 



i + 3) 
= Cancel Then Exit Sub 



IsStartOf Phrase 
IsStartOf Phrase 
IsStartOf Phrase 
IsStartOf Phrase 
IsStartOf Phrase 
IsStartOf Phrase 
IsStartOf Phrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 



(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber , 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber. 



"incorporated", True) 
" inc " , True ) 
"limited", True) 
"ltd", True) 
"brothers", True) 
"bros" , True) 
"association", True) 
"assn", True) 
"assoc", True) 
"rr". True) 



mCheckCaseName - 11 

If isStartOfBusinessDesignation 
If IsStartOfBusinessDesignation 
If IsStartOfBusinessDesignation 
If IsStartOfBusinessDesignation 
If IsStartOfBusinessDesignation 



0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 



IsStartOfPhrase(WordNumber, "ry", True) 

IsStartOfPhrase(WordNumber, "corp", True) 

IsStartOfPhrase(WordNumber, "co", True) 

IsStartOf Phrase (WordNumber, "na", True) 

IsStartOf Phrase (WordNumber, "fsb", True) 



End. Function 



Private Sub CheckUnionO 

Rule 10.2.1(i): If a party's name has a word indicating a union designation, then suggest that the user consult 
Rule 10.2. to ensure that it complies with that rule. 



Dim IngParty As Long 

Dim i As Long 

Dim strWordTrim As String 



With Citation. CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = .PartyName (IngParty) .Start To . Par tyNamet IngParty) .End 
strWordTrim = ActiveDoc .Words .WordsTrim(i) 
If strWordTrim = "local" _ 
Or strWordTrim = "union" _ 
Or strWordTrim = "international" _ 
Or strWordTrim = "brotherhood" Then 

Call ErrorForm.LoadErrorC'CaseName CheckUnion", . PartyName (IngParty) . Start , . Par tyName (IngParty) . End) 
If Not ErrorForm. ignoreError Then 

Call ErrorForm. Activate 
End If 



End If 
Next i 
Next IngParty 
End With 



End Sub 



Priva^ Sub CheckCIRO 

'f| Rule 10.2.1(j): If a party's name starts with "C.I.R." or "Commissioner of Internal Revenue," then suggest changing the 

phrase to "Commissioner." 
: %4 CIR v. Jones, 200 U.S. 205, 210 (1980) 



Dim IngParty As Long 

Dfra IngPartyStart As Long 

ifrm IngPhraseEnd As Long 



l&lih Citation. CaseNameClause 
If- For IngParty = 1 To .PartiesCount 



IngPartyStart = . PartyName (IngParty) . Start 

IngPhraseEnd = IsStartOf Phrase (IngPartyStart, "cir", True) 

If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOf Phrase ( IngPartyStart, "commissionerof mternalrevenue , True) 

If IngPhraseEnd > 0 Then 

Call ErrorForm.LoadErrorC'CaseName CIR", IngPartyStart, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then t 

Call ErrorForm. Suggestion. Change (IngPartyStart, IngPhraseEnd, "Commissioner') 

Call ErrorForm. Activate 
End If 
End If 



Next IngPaity 
End With 



End Sub 



Private Sub CheckShouldAbbreviate ( ) 

■-- Rule 10 2.2: If one party's name contains a full word from Table 6 or 10, or the full name of a jurisdiction, 

■ and the word is not the first word of the name of the party, then suggest replacing the word with its abbreviation. 

'» University of Minnesota v. Jones, 200 U.S. 205, 210 (1980). 



Dim IngParty As Long 
Dim i As Long 

Dim strMatchingAbrv As String 
Dim IngNameEnd As Long 



With Citation. CaseNameClause 

For IngParty - 1 To .PartiesCount 

For i = . PartyName ( IngParty) . Start + 1 To . PartyName ( IngParty) . End 

strMatchingAbrv = AbrvForFullName ( i , . PartyName ( IngParty) . End, IngNameEnd) 
If strMatchingAbrv <> "" And strMatchingAbrv <> "U.S. " Then 

Call ErrorForm.LoadErrorC'CaseName ShouldAbbreviate" , i, IngNameEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (i, IngNameEnd, strMatchingAbrv) 

Call ErrorForm. Activate 
End If 

End If 



Next i 
Next IngParty 
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End With 
End Sub 

Private Sub CheckUnitedStates { ) 

■-- Rule 10 2 2: If "United States" is abbreviated, suggest changing it to "United States." 
» JonesCo of U.S. v. Smith, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 

Dim i As Long 

Dim IngPhraseEnd As Long 



With Citation. CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = . PartyNamet IngParty) .Start To . Part yName (IngParty) . End 
IngPhraseEnd = IsStartOf Phrase ( i , "us", True) 
If IngPhraseEnd > 0 Then 

Call ErrorForm. LoadError("CaseName UnitedStates" , i, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Changed, IngPhraseEnd, "United States") 

Call ErrorForm. Activate 
End If 

End If 

Next i 
Next IngParty 

End With 

End Sub 



Private Sub CheckAbbreviation ( ) 
Mm i As Long 

;Jflm abrMatch As cAbbreviation 
Jim bolKnownAbrv As Boolean 
D>£m IngPhraseEnd As Long 

Iff Citation. Words. I sAbbreviat ion (WordNumber) Then 



****************************************************** 



■ ************************ 
• if the case name contains an abbreviation from Table 6 or Table 10 that is 
1 punctuated incorrectly, suggest replacing it with the correct punctuation. 

, -;^**************************************************************************** 

bolKnownAbrv = False 

Set abrMatch = gTable 6 .Ma tchAbrv( WordNumber , , IngPhraseEnd) 

If Not (abrMatch Is Nothing) Then t 

If Not Citation. Words (WordNumber, IngPhraseEnd) = abrMatch. FullNameTrim Then 

bolKnownAbrv = True 

If Not Citation. Words. IsMatch (Exact, abrMatch. AbrvName, WordNumber) Then 
Suggest ion. FormattedText = Citation. FormattedText 

Call Suggestion. Rep laceWords (WordNumber, IngPhraseEnd, abrMatch. AbrvName) 
Call mDisplayError. Change ("T. 6 Misspelled Abrv" , WordNumber, IngPhraseEnd) 
If gbolStartOver = True Then Exit Sub 
End If 

End If 
End If 

Set abrMatch = gTablelO .MatchAbrvt WordNumber , , IngPhraseEnd) 
If Not (abrMatch Is Nothing) Then 

If Not Ci tat ion. Words (WordNumber, IngPhraseEnd) = abrMatch. FullNameTrim Then 

bolKnownAbrv = True 

If Not Citation. Words. IsMatch (Exact, abrMatch. AbrvName, WordNumber) Then 
Suggestion. FormattedText = Citation. FormattedText 

Call Sugges t ion. ReplaceWords (WordNumber, IngPhraseEnd, abrMatch. AbrvName) 
Call mDisplayError. Change ("T. 10 Misspelled Abrv", WordNumber, IngPhraseEnd) 
If gbolStartOver = True Then Exit Sub 
End If 

End If 
End If 



******************************************** 



****************************** 
If the case name contains an unknown abbreviation, call it to the user's 
attention. 



******* 



************************************************** 
If bolKnownAbrv = False Then 

For i - WordNumber - 1 To WordNumber - 6 Step -1 

Set abrMatch = gAllAbbreviations .MatchAbrv (i , , IngPhraseEnd) 
If Not (abrMatch Is Nothing} Then 

If IngPhraseEnd >- WordNumber Then bolKnownAbrv - True 
Exit For 
End If 
Next i 
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If bolKnownAbrv = False Then 

Call mDisplayError,UserChange("10.2 .2 Unknown Abrv" , WordNumber , WordNumber) 

If gbolStartOver = True Then Exit Sub 
End If 

End If 

End If 

End Sub 



Private Sub Checklmproper Abbreviation (WordNumber As Long, EndOf PartyName As Long, ErrorKey As String) 

Dim colFullNames As Collection 
Dim IngEndOfAbrv As Long 
Dim varFullName As Variant 
Dim strErrorKey As String 

•__ Does a party's name begin with a recognized abbeviation? 

Set colFullNames = FullNamesForAbrvs (WordNumber, EndOf PartyName, IngEndOfAbrv) 
If colFullNames. Count > 0 Then 

If colFullNames. Count - 1 Then 
strErrorKey = ErrorKey & " 2" 

Else 

strErrorKey = ErrorKey & " 3" 
End If 

Call ErrorForm.LoadError (strErrorKey, WordNumber, IngEndOfAbrv) 
If Not ErrorForm. IgnoreError Then 

For Each varFullName In colFullNames 

Call ErrorForm. Suggest ion. Change (WordNumber, IngEndOfAbrv, varFullName) 
Call ErrorForm. DisplaySuggestion 
Next varFullName 
Call ErrorForm. Activate 
Exit Sub 
End If 

fM If 

Does a party's name begin with a phrase that looks like an abbreviation, but wasn't identified above? 
fnfEndOfAbrv = IsApparentAbrv (WordNumber , EndOf PartyName) 
I^Ej IngEndOfAbrv > 0 Then 

|f| Call ErrorForm.LoadError (ErrorKey & " 1", WordNumber, IngEndOfAbrv) 
7" If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Activate 

Exit Sub 
m End If 

m& if 

End Sajb 

sits s 

Priv|t| Function isStartOf Phrase (FirstWord As Long, PhraseTrim As String, IncludeTrailingPeriod As Boolean) A 

fsifei IngFirstWord As Long 
aim IngLastWord As Long 
hik. IngPhraseLength As Long 
ijip. IngCaseClauseEnd As Long 
Static strPhrasest) As String 



If Ac tiveDoc. Words. WordsTrim( FirstWord) = " " Then Exit Function 

IngCaseClauseEnd = Citation. CaseNameClause.ClauseEnd 

If Not mbolStartOfPhraselnitialized Then 

ReDim strPhrases (Citation. CaseNameClause .ClauseStart To IngCaseClauseEnd, 1 To 10} 
For IngFirstWord = Citat ion. CaseNameClause. Par tyName (1 ). Start To IngCaseClauseEnd 

For IngPhraseLength = 1 To 10 

IngLastWord = IngFirstWord + IngPhraseLength - 1 
If IngLastWord > IngCaseClauseEnd Then Exit For 

strPhrases (IngFirstWord, IngPhraseLength) = Ac tiveDoc. Words. WordsTrim( IngFirstWord, IngLastWord) 
Next IngPhraseLength 

Next IngFirstWord 

mbolStartOfPhraselnitialized = True 
End If 

For IngPhraseLength = 1 To 10 

If strPhrases (FirstWord, IngPhraseLength) = PhraseTrim Then 
isStartOfPhrase = FirstWord + IngPhraseLength - 1 
If IncludeTrailingPeriod = True Then 

If Act iveDoc. Words (IsStartOfPhrase + 1) = " . " Then IsStartOfPhrase = IsStartOfPhrase + 1 
End If 
Exit For 
End If 
Next IngPhraseLength 

End Function 

Private Function IsApparentAbrv (WordNumber As Long, EndOf PartyName As Long) As Long 

Dim strWord As String 
Dim strNextWord As String 
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If Ac tiveDoc. Words. WordsTr im{ WordNumber) <> "" Then 

strWord = ActiveDoc . Words (WordNumber) 
strNextWord = ActiveDoc .Words (WordNumber +1) 

If ActiveDoc. Words. SpacesAf terWord(WordNumber) = 0 And ActiveDoc .Words (WordNumber + 1) = "." Then 
IsApparentAbrv = WordNumber „ ^ >T 

Do While ActiveDoc. Words. Spaces Afterword (IsApparentAbrv) = 0 And IsApparentAbrv <= EndOfPartyName 
IsApparentAbrv = IsApparentAbrv + 1 

Loop 

Elself strWord = UCase( strWord) And Lent strWord) > 1 Then 

IsApparentAbrv - WordNumber 
Elself strNextWord = Then _ _^ „ „ . 

If ActiveDoc. Words. SpacesAfterWord( WordNumber + 1) = 0 And Not (ActiveDoc .Words (WordNumber + 2) = s ) Then 
IsApparentAbrv = WordNumber + 2 

End If 
End If 

End If 

End Function 

Private Function Ful INamesForAbrvs (WordNumber As Long, EndOfPartyName As Long, Optional EndOfAbrv As Long) As Collectio: 



Dim IngLastWord As Long 

Dim strPhraseTrim As String 

Dim IngEndOf Match As Long 

Dim IngLongestMatch As Long 

Dim bcAbrv As cAbbreviation 

Dim bcJurisdiction As cJurisdiction 



Set Ful INamesForAbrvs = New Collection 

If Not (ActiveDoc. Words. WordsTrim( WordNumber) = "") Then 

For IngLastWord = WordNumber + 9 To WordNumber Step -1 
If IngLastWord <= EndOfPartyName Then 

If ActiveDoc. Words. WordsTrim( IngLastWord} <> "" Then 

strPhraseTrim = ActiveDoc. Words. Words Trim (WordNumber, IngLastWord) 

For Each bcAbrv In AbrvsAll 
^ s If strPhraseTrim = bcAbrv. AbrvNameT rim Then 

"4 If bcAbrv . AbrvName <> bcAbrv. Ful iName Then 

\l Ful INamesForAbrvs. Add bcAbrv. Ful IName 

. 2 EndOfAbrv = IngLastWord 

111 End If 

l^L End If 

Next bcAbrv 

For Each bcJurisdiction In Jurisdictions 
jn If strPhraseTrim = bcJurisdiction .AbrvNameTrim Then 

~ r If be Jurisdiction. AbrvName <> bcJurisdiction. FullNarae Then 

3 Ful INamesForAbrvs. Add be Jurisdiction. Ful IName 

f*\ EndOfAbrv = IngLastWord 

M End If 

til End If 

Next bcJurisdiction 



u . If Ful INamesForAbrvs. Count > 0 Then 

r-= If ActiveDoc. Words (EndOfAbrv + 1) = " . " Then EndOfAbrv = EndOfAbrv + 1 

jp| Exit Function 

J"'' End If 

End If 
End If 
Next IngLastWord 

End If 

End Function 

Private Function AbrvForFul IName (WordNumber As Long, EndOfPartyName As Long, Optional EndOf FullName As Long) As String 



Dim IngLastWord As Long 

Dim bcAbrv As cAbbreviation 

Dim IngLongestMatch As Long 

Dim strPhraseTrim As String 

Dim bcJurisdiction As cJurisdiction 



If Not ( ActiveDoc. Words. WordsTrim( WordNumber) = "") Then 

LastWord = WordNumber + 9 To WordNumber Step 
IngLastWord <= EndOfPartyName And ActiveDoc. W 

strPhraseTrim = ActiveDoc .Words .WordsTr im( WordNumber , IngLastWord) 



For IngLastWord = WordNumber + 9 To WordNumber Step -1 

If IngLastWord <= EndOfPartyName And ActiveDoc .Words .WordsTr im( IngLastWord) <> " " Then 



For Each bcAbrv In AbrvsAll 

If bcAbrv.HasAbbreviation Then 

If strPhraseTrim = bcAbrv. Full NameTrim Then 

If bcAbrv . AbrvName <> bcAbrv . Ful IName Then 
AbrvForFul IName = bcAbrv . AbrvName 
EndOf Ful IName = IngLastWord 
Exit Function 
End If 
End If 
End If 
Next bcAbrv 



For Each bcJurisdiction In Jurisdictions 
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If strPhraseTrim = bcJurisdiction.FullNameTrim Then 

If bcJurisdiction.AbrvName <> be Juris diet ion. FullName Then 
AbrvForFul IName = bcJurisdiction.AbrvName 
EndOf FullName = IngLastWord 
Exit Function 
End If 
End If 
Next bcJurisdiction 

End If 
Next IngLastWord 

End If 

End Function 

Private Function LocateWord{ SearchFrom As Long, SearchTo As Long, SearchAsTrim As Boolean, ParamArray SearchForO) As Long 

Dim IngStep As Long 

Dim IngWord As Long 

Dim strWord As String 

Dim varSearchForWord As variant 



If SearchTo > SearchFrom Then 
IngStep = 1 

Else 

IngStep = -1 
End If 

For IngWord = SearchFrom To SearchTo Step IngStep 
If SearchAsTrim Then 

strWord = Act iveDoc .Words .WordsTrim { IngWord) 

Else 

strWord = Act iveDoc .Words .Words (IngWord) 
End If 

For Each varSearchForWord In SearchFor 
If strWord = varSearchForWord Then 
LocateWord = IngWord 
jp Exit Function 

%l End If 
"iLI Next varSearchForWord 
Nfc^t IngWord 

End F%riction 

PrivJU Function JurisdictionAtWord {FirstWord As Long, Optional EndOfPhrase As Long) As cJurisdiction 

BJjhi i As Long 

lff$L IngClauseEnd As Long 

If ActiveDoc. Words. WordsTrim (FirstWord) = "" Then Exit Function 

fflfClauseEnd = Citation. CaseNameClause . ClauseEnd 
iBif i = FirstWord + 11 To FirstWord Step -1 
. ill If i <= IngClauseEnd Then 
V" If Not ActiveDoc .Words. WordsTrim(i) = "" Then 

CI set JurisdictionAtWord = Jurisdictions. Item (ActiveDoc. Words. WordsTrim (FirstWord, i) , True, False, False) 

If Not JurisdictionAtWord Is Nothing Then 
f% If Act iveDoc. Words (i + 1) = " . " Then 

f* v EndOfPhrase = i + 1 

f-s Else 

EndOfPhrase = i 
End If 
Exit For 
End If 

End If 
End If 
Next i 



End Function 
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■ -- Copyright 2001 by Robert L. Jacobson 

Option Explicit 

Public Sub CheckClauseOrder ( ) 

Call CheckReporterClausePosition 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckJurisdictionPosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckCourtPosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Call CheckDatePosition 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



End Sub 

Private Sub CheckReporterClausePosition ( } 

If the first reporter clause does not follow the case name clause, then suggest moving all contiguous reporter c: 
follow the case name clause. 

Dim bcFirstReporterClause As IClause 
Dim bcLastReporterClause As IClause 
Dim bcCaseNameClause As IClause 
Dim IngMoveToPosition As Long 
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If Citation. Report erClauses. Count > 0 Then 

Set bcFirstReporterClause = Citation. ReporterClauses (1) 

If Not (Citation. CaseNameClause Is Nothing) Then 
Set bcCaseNameClause = Citation. CaseNameClause 

If Not {bcCaseNameClause. NextClause Is bcFirstReporterClause) Then 

f*! Set bcLastReporterClause = Citation. ReporterClauses (1) 

do While Not (bcLastReporterClause .NextClause Is Nothing) 
i|Q If TypeOf bcLastReporterClause. NextClause Is cClauseReporter Then 

Set bcLastReporterClause = bcLastReporterClause .NextClause 

r, = Else 
W Exit Do 

= ~~ End If 

If I Loop 

s apfc if Act iveDoc. Words { bcCaseNameClause. ClauseEnd + 1) = "," Then 

ffi IngMoveToPosition = bcCaseNameClause. ClauseEnd + 2 

Else 

MZ IngMoveToPosition = bcCaseNameClause. ClauseEnd + 1 

End If 



n) 



Call ErrorForm.LoadErrorC'ClauseOrder CheckReporterPosition", bcFirstReporterClause. ClauseStart, bcLastReporterClause. Claus 
If ^alfErroXSS bcLastReporterClause. ClauseEnd, IngMoveToPositio 



Call ErrorForm. Activate 
End If 



r 5 ; End If 

End If 
End If 

End Sub 

Private Sub CheckJurisdictionPosition ( ) 

If the jurisdiction is not the first word in the court date clause, suggest moving it to the correct position. 

Dim bcExpectedPriorClause As IClause 
Dim bolMoveCourt As Boolean 
Dim bolMoveDate As Boolean 
Dim IngMoveToPosition As Long 



If Not (Citation. JurisdictionClause Is Nothing) Then 

'-- Determine which clause should preceed the jurisdiction clause (usually the last reporter clause, but, if there is no 
reporter clause, then the case name clause.) 

If Citation. ReporterClauses. Count > 0 Then 

Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses . Count) 
Elself Not (Citation. CaseNameClause Is Nothing) Then 

Set bcExpectedPriorClause = Citation. CaseNameClause 
End If 

Check whether the jurisdiction clause is in the correct position. 
If Not (bcExpectedPriorClause Is Nothing) Then 

If Not (bcExpectedPriorClause. NextClause Is Citation. JurisdictionClause) Then 

• — Does the court clause follow the jurisdiction clause? 

If Citation. JurisdictionClause. NextClause Is Citation. CourtClause Then k . M 

If Not lnStr{ActiveDoc.Words(Citation. JurisdictionClause. JurEnd + 1, Citation. CourtClause. CourtStart - 1) , ) ) Then 

bolMoveCourt = True 
End If 

End If 
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ition) 



osition) 



End) ; 



veTo position) 



" ) " > Then 



" ) " ) Then 



' -- Does the date clause follow the court clause? 
If bolMoveCourt = True Then 

If Citation. CourtClause .NextClause Is Citation. DateClause Then 

If Not InStr (ActiveDoc . Words (Citation. CourtClause. CourtEnd + 1, Citation. DateClause. DateStart - 1), 

bolMoveDate - True 
End If 
End If 

'-- Does the date clause follow the jurisdiction clause? 
Else 

If Citation. Jurisdict ionClause. NextClause Is Citation. DateClause Then 

If Not InStr (ActiveDoc. Words (Citation. CourtClause. CourtEnd + 1, Citation. DateClause. DateStart - 1), 

bolMoveDate = True 
End If 
End If 
End If 

IngMoveTo Posit ion = bcExpectedPriorClause . ClauseEnd + 1 

If ActiveDoc .Words { IngMoveToPosition) = " , " Then IngMoveToPosition = IngMoveToPosition + 1 
If ActiveDoc .Words (IngMoveToPosition) = "(" Then IngMoveToPosition = IngMoveToPosition + 1 

If bolMoveDate = True Then 

'» Jones v. Smith (Minn. Ct. App. 1990), 123 N.W.2d 456 

Call ErrorForm. LoadError ( "Dec JurisdictionPos A", Citation. JurisdictionClause .JurStart , Citation. DateClause .DateEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Transpose (Citation. JurisdictionClause. JurStart, Citation. DateClause .DateEnd, IngMoveToPos 

Call ErrorForm. Activate 
End If 

El self bolMoveCourt = True Then 

'» Jones v. Smith, Minn. Ct. App., 123 N.W.2d 456 (1990) 

Call ErrorForm. LoadError { "Dec JurisdictionPos B", Citation. JurisdictionClause .JurStart , Citation . CourtClause. CourtEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Transpose (Citation. JurisdictionClause. JurStart, Citation. CourtClause . CourtEnd, IngMoveToP 

Call ErrorForm. Activate 
End If 

Else 

'» Jones v. Smith, Minn., 123 N.W.2d 456 (Ct. App. 1990) 

Call ErrorForm. LoadError ("Dec JurisdictionPos C" , Citation. JurisdictionClause. JurStart , Citation. JurisdictionClause. Jur 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Transpose (Citation. JurisdictionClause . JurStart , Citation. JurisdictionClause . JurEnd, IngMo 

Call ErrorForm. Activate 
End If 



End If 

f~i End If 

^ End If 

P£td If 

End §ub 

PrivfiBs Sub CheckCourtPosition( ) 

5*ak- if the court does not follow the jurisdiction or last reporter, then suggest moving it to the correct position. 

Dim bcExpectedPriorClause As IClause 
Dim bolMoveDate As Boolean 
Dim IngMoveToPosition As Long 



If Not (Citation. CourtClause Is Nothing) Then 

' — Determine which clause should preceed the jurisdiction clause (usually the last reporter clause, but, if there is no 
reporter clause, then the case name clause.) 

If Not (Citation. JurisdictionClause Is Nothing) Then 

Set bcExpectedPriorClause = Citation. JurisdictionClause 
Elself Citation. ReporterClauses . Count > 0 Then 

Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses . Count) 
End If 

' -- Check whether the jurisdiction clause is in the correct position. 
If Not (bcExpectedPriorClause Is Nothing) Then 

If Not (bcExpectedPriorClause. NextClause Is Citation. CourtClause) Then 

' — Does the date clause follow the court clause? 

If Citation. CourtClause .NextClause Is Citation. DateClause Then 

If Not InStr (ActiveDoc. Words (Citation. CourtClause. CourtEnd, Citation. DateClause. DateStart - 1), ")") Then 
bolMoveDate = True 

End If 
End If 

IngMoveToPosition = bcExpectedPriorClause , ClauseEnd + 1 

If ActiveDoc. Words (IngMoveToPosition) = " , " Then IngMoveToPosition = IngMoveToPosition + 1 
If ActiveDoc, Words (IngMoveToPosition) = " { " Then IngMoveToPosition = IngMoveToPosition + 1 

If bolMoveDate = True Then 

'» Jones v. Smith (2d Cir. 1980), 123 F.2d 456 



Call ErrorForm. LoadError ( "Dec CourtPos A", Citation. CourtClause. Courtstart, Citation. DateClause. DateEnd) 
If Not ErrorForm. IgnoreError Then 
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Call ErrorForm. Suggestion. Transpose (Citation. CourtClause . CourtStart, Citation, DateClause. DateEnd, IngMoveTo Posit ion 



on) 



Call ErrorForm. Activate 
End If 

Else 

'» Jones v. Smith, 2d Cir. , 123 F.2d 456 (1980) 

Call ErrorForm. LoadError( "Dec CourtPos B", Citation. CourtClause. Courts tart, Citation. CourtClause. CourtEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Transpose (Citation. CourtClause. CourtStart, Citation. CourtClause. CourtEnd, IngMoveToPositi 

Call Err or Form. Activate 
End If 



End If 

End If 
End If 

End If 

End Sub 

Private Sub CheckDatePosition ( ) 

If the date clause does not follow the court clause, jurisdiction clause or last reporter, then suggest moving it to 
the correct position. 
'» Jones v. Smith, 1980, 123 F.2d 456 (2d Cir.) 

Dim bcExpectedPriorClause As IClause 
Dim IngMoveTo Posit ion As Long 



If Not (Citation. DateClause Is Nothing) Then 

'— Determine which clause should preceed the jurisdiction clause (usually the last reporter clause, but, if there is no 
reporter clause, then the case name clause.) 

_If Not (Citation. CourtClause Is Nothing) Then 

if j Set bcExpectedPriorClause = Citation. CourtClause 

Jpp.se If Not (Ci tat ion. JurisdictionClause Is Nothing) Then 

Set bcExpectedPriorClause = Citation. JurisdictionClause 
^.|§LseIf Citation. ReporterClauses . Count > 0 Then 

. ~ Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses . Count) 
-^gid If 

*5?jj — Check whether the jurisdiction clause is in the correct position, 
s^f Not (bcExpectedPriorClause Is Nothing) Then 

If Not (bcExpectedPriorClause. NextClause Is Citation. DateClause) Then 

-sr.? IngMoveTo Position = bcExpectedPriorClause . ClauseEnd + 1 

4Vs I f Act iveDoc .Words (IngMoveToPositi on) = " , 11 Then IngMoveToPositi on = IngMoveToPosition + 1 

J If Act iveDoc. Words (IngMoveToPosition) = " ( " Then IngMoveToPosition = IngMoveToPosition + 1 

fs| Call ErrorForm. LoadError( "Dec DatePos", Citation. DateClause. DateStart , Citation. DateClause .DateEnd) 

If Not ErrorForm. IgnoreError Then 

111 Cal1 ErrorForm. Suggestion. Transpose (Citation. DateClause. DateStart, Ci tation. DateClause . DateEnd, IngMoveToPosition) 

Call ErrorForm. Activate 
Lsl End If 

End If 
?Emd If 

Endlli 



End Sub 
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'— Copyright 2001 by Robert L. Jacobson 
Option Explicit 
Public Sub CheckDatet) 

Call CheckDateFormatting 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingDate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End Sub 

Private Sub CheckDateFormatting ( ) 

■ if the date clause specifies the month and date, but the date is formatted incorrectly, then suggest replacing the 

date clause with a date in the correct format. 

'!! TO DO: When support for unpublished reporters is added, check whether a full date is being used for a citation that 
requires only a year, or a year is being used for a citation that reguries a full date. 

Dim strDateCorrectFormat As String 
Dim strDateAndYearOnly As String 
Dim strMonthLong As String 
Dim strMonthBluebook As String 



43 



■ — Run this subroutine only if the date is a long date (not just a year), so it is longer than one word. 

If Not (Citation. DateClause Is Nothing) Then 

If Citation. DateClause. DateEnd > Citation. DateClause . DateStart Then 

■ — Check whether the date is formatted correctly. 

strDateCorrectFormat = DateBluebookFormat (Citation. DateClause. FullDate) 
If Citation. DateClause. Text <> strDateCorrectFormat Then 

strDateAndYearOnly = Format$ {Citation, DateClause . Text, " d, yyyy" ) 
strMonthBluebook = MonthBluebookFormat (Citation. DateClause. FullDate) 
strMonthLong = Format$ (Citation. DateClause. FullDate, "mmmm") 



■__ check whether the month is formatted incorrectly and the remainder of the date is formatted correctly. If the only 
>| ■ problem is that the month is abbreviated incorrectly, then offer a specific error message suggesting only to 

■ replace the month and showing the table of correct abbreviations for months. 

HI if Right$ (Citation. DateClause. Text, Len (strDateAndYearOnly) ) = StrDateAndYearOnly _ 

And Not (strMonthBluebook = ActiveDoc .Words (Citation. DateClause . DateStart) _ 
M Or strMonthBluebook = ActiveDoc. Words (Citation. DateClause. DateStart, Citation. DateClause .DateStart + 1)) Then 

%fj ' — Display a different error message based on whether the Bluebook-f ormatted month is abbreviated or 

1 is not abbreviated. 

5 If ActiveDoc. Words (Citation. DateClause, DateStart + 1) = "." Then 

l~l ■» Jones v. Smith, 123 N.W.2d 456 (Minn. Jun. 10, 1980) 

.ff: Call ErrorForm. LoadError ("Dec DateFormatting A" , Citation. DateClause. DateStart, Citation. DateClause .DateEnd, strMon 

thLorig^ s trMonthBluebook ) 

Vs If Not ErrorForm. IgnoreError Then 

^ Call ErrorForm. Suggestion. Change (Citation. DateClause. DateStart, Citation. DateClause. DateEnd, strDateCorrectForm 

at) N b 

A-*?. Call ErrorForm. Activate 

End If 

Else 

'» Jones v. Smith, 123 N.W.2d 456 (Minn. August 10, 1980) 

Call ErrorForm. LoadError ( "Dec DateFormatting B" , Citation. DateClause . DateStart , Citation. DateClause. DateEnd, strMon 
thLong, strMonthBluebook) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm . Suggestion . Change (Citation . DateClause . DateStart , Citation . DateClause . DateEnd , strDateCorrectForm 



at) 



Call ErrorForm. Activate 
End If 

End If 

■ — Otherwise, raise a general error suggesting that the entire date clause be replaced with the correctly- formatted 
date . 

'» Jones v. Smith, 123 N.W.2d 456 (Minn. 6/10/1980) 



Else 



Call ErrorForm. LoadError { "Dec DateFormatting C", Citation. DateClause. DateStart , Citation . DateClause . DateEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (Citation. DateClause. DateStart, Citation. DateClause. DateEnd, strDateCorrectFormat) 

Call ErrorForm. Activate 
End If 

End If 

End If 

End If 
End If 

End Sub 

Private Function DateBluebookFormat (SourceDate As Variant) As String 



- From the supplied date, returns a string with the date formatted in the correct Bluebook format — e.g, "Aug. 3, 1970" 
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Dim strDateLongMonth As String 
Dim strMonthLong As String 
Dim strMonthBluebook As String 

' — First, format the string into "August 3, 1970" format using the Format function. 

StrDateLongMonth = Format$ {SourceDate, "mmmm d, yyyy") 

Next, replace the long month with the correct abbreviation for the month. E.g., "August" with "Aug." 

strMonthLong = Format $ (SourceDate, "mmmm") 
strMonthBluebook = MonthBluebookFormat (SourceDate) 
If strMonthLong <> strMonthBluebook Then 

DateBluebookFormat = Replace (strDateLongMonth, strMonthLong, strMonthBluebook) 

Else 

DateBluebookFormat = strDateLongMonth 
End If 

End Function 

Private Function MonthBluebookFormat (SourceDate As Variant) As String 

■— Returns the correct Bluebook abbreviation for a given month. (See Bluebook page 298.) 
Dim IngMonth As Long 

IngMonth = CLng ( Month ( SourceDate ) ) „ Tlllu „ „ ..q pn t- « "Oct " "Nov " "Dec. 

MonthBluebookFormat = Choose (IngMonth, "Jan.", "Feb.", "Mar,", "Apr.", "May", "June , July , Aug. , Sept. , Oct. , Nov. , 

End Function 

Private Sub CheckMissingDate ( ) 

■— if there is no date clause, suggest inserting a placeholder for the year. 
'» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct. App.) 

■ M TO DO: When I add support for nonpublished cases, the program should suggest adding a placeholder for unpublished cases 
'O in the full date (mmm dd, yyyy) format. 

f£jcitation.DateClause is Nothing Then 

%| Call ErrorForm.LoadError ("Dec MissingDate" , 0, 0) 
=5* If Not ErrorForm. IgnoreError Then 

If Not (Citation. CourtClause Is Nothing) Then 

y, Call ErrorForm. Suggest ion. Insert (Citation. CourtClause. CourtEnd + 1, ) 

s -*"' Elself Not (Citation. JurisdictionClause Is Nothing) Then 

QJ Call ErrorForm. Suggestion. Insert (Citation. JurisdictionClause. JurEnd + 1, ) 

sye Else , . \ „ / \ a\ 
s^= Call ErrorForm. Suggestion. Insert (AppropriateDatePosition (Citation) , { ) ) 

x End If 

Z„.. Call ErrorForm. Activate 

O End If 

Ma if 

End SrLb 
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'-- Copyright 2001 by Robert L. Jacobson. ' 

Option Explicit 

Public Sub CheckEditor () 

Dim bcReporterClause As cClauseReporter 

For Each bcReporterClause In Citation. ReporterClauses 
Call CheckMissingEditorClause (bcReporterClause) 

If Err or Form, Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectEditorAbrv (bcReporterClause) 

If Err orPorm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectEdi tor (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call ChecklncorrectEdi torVolumeNumber (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckMissingMainReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckParallelEditorShouldBeParenthetical (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm, Result = Cancel Then Exit Sub 

Next bcReporterClause 

End Sub 

Private Sub CheckMissingEditorClause (CurrentClause As cClauseReporter) 

'-- If the reporter clause should have an editor parenthetical, but doesn't, then suggest inserting an editor parenthetical. 
'» Jones v. Smith, 40 U.S. 500, 505 (1839) 
'» Jones v. Smith, 2 Ky. 500, 505 (1803) 

D%mj bcExpectedReporter As cReporter 
D;t#s IngExpectedVolumeNumber As Long 

If XurrentClause. EditorClause Is Nothing Then 

=?= Set bcExpectedReporter = ExpectedEdi tor Reporter (CurrentClause) 

l^i If Not (bcExpectedReporter Is Nothing) Then 

IngExpectedVolumeNumber = ExpectedVolumeNumber (CurrentClause, bcExpectedReporter) 

7™ Call ErrorForm. LoadError ( "Rep Mi ssingEditor Parenthetical " , CurrentClause. ClauseStart, CurrentClause . ClauseEnd, Ac tiveDoc .Words ( 
CurrentClause . VolumeNumberLocation) , CurrentClause. Reporter .FullName, bcExpectedReporter .FullName) 
If Not ErrorForm . IgnoreError Then 

~ Call ErrorForm. Suggestion. Insert (CurrentClause .AbrvEnd + 1, ParentheticalText (IngExpectedVolumeNumber, bcExpectedReporter)) 

f a l Call ErrorForm. Activate 

Zl\ End If 

End If 

End Sul) 

Privfee Sub ChecklncorrectEditorAbrv (CurrentClause As cClauseReporter) 

■ — If the editor reporter is not punctuated or spelled correctly, then suggest correcting it. 
•» Jones v. Smith, 69 U.S. <2 Walll) 500, 505 (1870) 

If Not (CurrentClause. EditorClause Is Nothing) Then 
With CurrentClause . EditorClause 

If .AbrvText <> . Reporter . AbrvName Then 

Call ErrorForm. LoadError ( "Rep IncorrectEdi torAbrv" , .AbrvStart, .AbrvEnd, .Reporter .FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (, AbrvStart, .AbrvEnd, . Reporter .AbrvName) 

Call ErrorForm. Activate 
End If 

End If 

End With 
End If 

End Sub 

Private Sub ChecklncorrectEditor (CurrentClause As cClauseReporter) 

--If the current clause has an associated editor clause, but the editor clause is not a correct editor for the 

current clause, then suggest deleting the editor clause if an editor clause is not required, or changing the editor 
to the correct editor if one is required. 
» Jones v. Smith, 200 U.S. (10 S. Ct) 500, 505 (1980) 
» Jones v. Smith, 50 U.S. (10 S. Ct . ) 500, 505 (1805) 

Dim bcExpectedReporter As cReporter 
Dim IngExpectedVolumeNumber As Long 



If Not (CurrentClause. EditorClause Is Nothing) And CurrentClause . VolumeNumber > 0 Then 
With CurrentClause . EditorClause 



Name) 
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Set bcExpecte&Reporter = ExpectedEditorReporter (CurrentClause) 

■-- If the reporter should not have an editor clause, then suggest deleting it. 
If bcExpectedReporter Is Nothing Then 

Call ErrorForm.LoadError ( "Rep IncorrectEditor A" , .ClauseStart, .ClauseEnd, .Reporter . FullName, CurrentClause . Reporter . Full 

If Not Error Form. IgnoreError Then 

Call ErrorForm. Suggestion. Delete ( .ClauseStart, .ClauseEnd) 
Call Error Form. Activate 
End If 

' — If reporter should have an editor clause/ but the current editor reporter is incorrect/ then suggest changing it. 
Elself Not (bcExpectedReporter Is .Reporter) Then 

IngExpectedVolumeNumber = Expect edVolumeNumber (CurrentClause, bcExpectedReporter) 

Call ErrorForm.LoadError ( "Rep IncorrectEditor B" , .ClauseStart, .ClauseEnd, .Reporter .FullName, CurrentClause . Reporter. Full 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change { .ClauseStart, .ClauseEnd, ParentheticalText (IngExpectedVolumeNumber, bcExpectedReporte 

Call ErrorForm. Activate 
End If 



Name) 
r)) 



End With 
End If 

End Sub 

Private Sub ChecklncorrectEditorVolumeNumber (CurrentClause As cClauseReporter) 

' — If the current clause has an editor clause and the volume number does not correspond with the volume number for the 
parallel main reporter clause, then suggest correcting the editor clause's volume number. 

Dim IngExpectedVolumeNumber As Long 
Dim strSuggestedChange As String 

If^Wot (CurrentClause, EditorClause Is Nothing} And CurrentClause. VolumeNumber > 0 Then 

II With CurrentClause . EditorClause 

%l ' — Does the editor clause have the correct editor for this main clause's volume number and reporter? 
^5 If ExpectedEditorReporter (CurrentClause) Is .Reporter Then 



IngExpectedVolumeNumber = ExpectedVolumeNumber (CurrentClause, .Reporter) 



fn'| 1 — Is the editor clause missing a volume volume when one is required? 

^ ' » Jones v. Smith, 70 U.S. (Wall.) 500, 505 (1863) 

If .VolumeNumberLocation = 0 And IngExpectedVolumeNumber > 0 Then 

E Call ErrorForm.LoadError ( "Rep IncorrectEditorVolumeNumber 1", .AbrvStart, .AbrvEnd, .Reporter . FullName) 

f~| If Not ErrorForm. IgnoreError Then 

J"] Call ErrorForm. Suggestion. Insert ( .AbrvStart , IngExpectedVolumeNumber) 

Hi Call ErrorForm. Activate 

End If 

i,„i. •-- Does the editor clause have a volume number when none is required? 

'» Jones v. Smith, 2 Ky. (5 Sneed) 500, 505 (1803) 
Q Elself .VolumeNumberLocation > 0 And IngExpectedVolumeNumber = 0 Then 

Call ErrorForm. LoadError ( "Rep IncorrectEditorVolumeNumber 2", .VolumeNumberLocation, .VolumeNumberLocation, . Reporter. F 
ullName, CurrentClause. Reporter. FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete ( .VolumeNumberLocation, .VolumeNumberLocation) 

Call ErrorForm. Activate 
End If 

' -- Is the editor clause's volume number inconsistent with the correct volume number? 
'» Jones v. Smith, 70 U.S. (5 Wall.) 500, 505 (1863) 

Elself .VolumeNumber > 0 And .VolumeNumber <> IngExpectedVolumeNumber Then 

Call ErrorForm.LoadError ( "Rep IncorrectEditorVolumeNumber 3", .VolumeNumberLocation, .AbrvEnd/ CStr ( IngExpectedVolumeNu 
mber) , .Reporter .FullName, ActiveDoc . Words (CurrentClause .VolumeNumberLocation/ CurrentClause .AbrvEnd) ) 

If Not ErrorForm. IgnoreError Then 

strSuggestedChange = IngExpectedVolumeNumber & " " & Ac tiveDoc .Words ( .AbrvStart , .AbrvEnd) 
Call Er rorForm. Suggest ion. Change ( .VolumeNumberLocation, .AbrvEnd, strSuggestedChange) 
Call ErrorForm. Activate 

End If 

End If 

End If 

End With 
End If 

End Sub 

Private Sub CheckMissingMainReporter (CurrentClause As cClauseReporter) 

' — If the citation contains a editor reporter clause but is missing an associated main reporter clause, then suggest 

' inserting a main reporter clause. 

'» Jones v. Smith, 10 Wall. 500, 505 (1863) 



Dim bcMainReporter As cReporter 
Dim IngMainVolumeNumber As Long 
Dim bcEditor As cReporter 
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If CurrentClause.Reporter.lsEditorReporter Then 
With Cur rent Clause 

If MainReporterClause (CurrentClause) Is Nothing Then 
Set bcEditor = .Reporter 

Set bcMainReporter = Expect edMainReporter (Current Clause) 
If Not (bcMainReporter Is Nothing) Then 

IngMainVolumeNumber = .VolumeNumber + (bcEditor .MainReporterVolumeFirst - bcEditor . VolumeStart) 

Call ErrorForm. LoadErr or ( "Rep Mi ssingMa inRepor ter " , CurrentClause. ClauseStart , CurrentClause . ClauseEnd, bcEditor . FullNa 
me, bcMainReporter . FullName) 

If Not ErrorForm. IgnoreError Then 

' — Suggest adding a main reporter clause with the current editor as a parenthetical . 

Call ErrorForm. Suggestion. Insert ( .Clauses tart, CStr ( IngMainVolumeNumber} & " " & bcMainReporter . AbrvName & " (") 
Call ErrorForm. Suggestion. Insert { .AbrvEnd +1, " )") 
Call ErrorForm. DisplaySuggestion 

' — Suggest adding the main reporter clause as a parallel citation. 

Call ErrorForm. Suggestion. Insert (CurrentClause. ClauseStart, CStr {IngMainVolumeNumber) & " " & bcMainReporter .AbrvNa 

me & " , " ) 

Call ErrorForm. Activate 

End If 
End If 

End If 

End With 
End If 

End Sub 

Private Sub CheckParallelEditorShouldBeParenthetical (ReporterClause As cClauseReporter) 

■ 7 - If the citation has both a main reporter clause and an editor clause as a separate parallel citation, but the editor 
'Q clause's pagination is the same as the main reporter clause, then suggest changing the parallel citation to a 
'71'! parenthetical citation. 

'13 Jones v. Smith, 69 U.S. 500, 505, 2 Wall. 500 (1870) 



D%j| bcMainReporterC lause As cClauseReporter 
Diii strParentheticalText As String 
I 

#f~ReporterClause. Reporter . IsEditorReporter Then 
fn With ReporterClause 

Set bcMainReporterClause = MainReporterClause (ReporterClause) 
If Not (bcMainReporterClause Is Nothing) Then 
% If .FirstPageNumber > 0 _ 

And .FirstPageNumber = bcMainReporterClause . FirstPageNumber Then 

fll strParentheticalText = ParentheticalText ( . VolumeNumber , .Reporter) 

•£| Call ErrorForm. LoadError ( "Rep ParallelEditorShouldBeParenthetical " , . ClauseStart , .ClauseEnd, bcMa inRepor terClause.Repo 

rter ;FullName, .Reporter . FullName) 

If Not ErrorForm. IgnoreError Then 
p| Call ErrorForm. Suggestion. Delete ( .ClauseStart, .ClauseEnd) 

Call ErrorForm. Suggestion. Insert (bcMainReporterClause. AbrvEnd + 1, strParentheticalText) 
hx* Call ErrorForm. Activate 

End If 

End If 
End If 

End With 
End If 

End Sub 

Private Function ExpectedEditorReporter (MainRepo rter Clause As cClauseReporter) As cReporter 
' — Identify the correct editor reporter for this main reporter. 
Dim bcEditorReporter As cReporter 



If MainReporterClause. VolumeNumber > 0 Then 

For Each bcEditorReporter In MainReporterClause. Reporter .Editors 

' — Does this editor have the correct range of volume numbers for the main reporter's volume number? 

If MainReporterClause. VolumeNumber >= bcEditorReporter .MainReporterVolumeFirst And MainReporterClause. VolumeNumber <= bcEditorR 
eporter . MainReporterVolumeLast Then 

Set ExpectedEditorReporter = bcEditorReporter 
Exit Function 
End If 
Next bcEditorReporter 
End If 

End Function 

Private Function ExpectedVolumeNumber (ReporterClause As cClauseReporter, EditorReporter As cReporter) As Long 

1 -- Return the volume number for an editor that is expected based on the volume number of the main reporter. 



If ReporterClause. VolumeNumber > 0 Then 

If EditorReporter .VolumeStart = EditorReporter . VolumeEnd Then 
ExpectedVolumeNumber = 0 
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4* 



Else 

ExpectedVolumeNumber = ReporterClause. VolumeNumber - EditorReporter .MainReporterVolumeFirst + EditorReporter . VolumeStart 
End If 
End If 

End Function 

Private Function ExpectedMainReporter (EditorReporterClause As cClauseReporter) As cReporter 

' — Identify the main reporter that is associated with the supplied editor clause. 

Dim bcReporter As cReporter 

Dim bcEditorReporter As cReporter 

Dim bcCurrentEditor As cReporter 



Set bcCurrentEditor = EditorReporterClause. Reporter 

For Each bcReporter In Edi torReporterClause. Reporter . Parent .Reporters 

' — Does this reporter have any associated editor reporters that matches the current editor reporter? 
For Each bcEditorReporter In bcReporter .Editors 
If bcEditorReporter Is bcCurrentEditor Then 
Set ExpectedMainReporter = bcReporter 
Exit Function 
End If 
Next bcEditorReporter 
Next bcReporter 

End Function 

Private Function MainReporterClause {EditorReporterClause As cClauseReporter) As cClauseReporter 

* — Returns the main reporter clause that is associated with this editor reporter clause. 

Dim bcReporterClause As cClauseReporter 
Dim bcEditor As cReporter 



For Each bcReporterClause In Citation. ReporterClauses 

iaR For Each bcEditor In bcReporterClause . Reporter .Editors 

O If bcEditor Is EditorReporterClause .Reporter Then 

^ Set MainReporterClause = bcReporterClause 

Exit Function 

\f End If 

. Next bcEditor 
Ne^It bcReporterClause 

End Function 

Privcfte Function ParentheticalText (EyVal VolumeNumber As Long, ByVal Editor As cReporter) As String 

Returns the correct volume/editor name combination that should be used in a parenthetical, based on the main 
'4p reporter clause and the editor to be inserted. 

ff VolumeNumber = 0 Then 

if 5 ! ParentheticalText = "{" & Editor .AbrvName & " ) " 
F^fle 

Til ParentheticalText = "{" & VolumeNumber & " " & Editor .AbrvName & ")" 
Bfcf If 

End Sanction 
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' — Copyright 2003 by Robert L. Jacobson. 

Option Explicit 

Public Sub CheckJurAndCourt ( > 

Call CheckMissingJurisdiction 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingCourt 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklnconsistentJurisdictionAndCourt 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExtraneous Jurisdiction 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExtraneousCourtAndJurisdiction 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckJurisdictionAndCourtSpelling 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckValidYear 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End Sub 

Private Sub CheckMissingJurisdiction( ) 

' — If the jurisdiction could not be determined, then suggest adding a jurisdiction clause for every jurisdiction that is a 
good match for the reporters, court clause and date. Also suggest adding a court clause if the court could not be 
determined. 

Dim colCompatibleJurisdictions As Collection 
Dim bcJurisdiction As cJurisdiction 
Dim colCompatibleCourts As Collection 
Diat. bcCourt As cCourt 

irritation. Jurisdiction Is Nothing And Citation. JurisdictionClause Is Nothing Then 
sj 1 If Not (Citation. CourtClause Is Nothing) Then 

= ?5 ' If there is a recognized court clause in the citation, then only suggest adding a jurisdiction. 

'» Jones v. Smith, 123 N.W.2d 456 {Ct. App. 1980) 
k; a '» Jones v. Smith, 123 Misc. 2d 456 (Ct. CI, 1980} 

y.| Set colCompatibleJurisdictions = CompatibleJurisdictions 

Select Case colCompatibleJurisdictions .Count 
=?f" Case 0 

_ Call ErrorForm. LoadError ( "Dec MissingJurisdiction Bl", Citation. CourtClause . CourtStart , Citation . CourtClause . CourtEnd) 

O Call ErrorForm. LoadError ("Dec MissingJurisdiction B2" , Citation. CourtClause .CourtStart , Citation. CourtClause .CourtEnd) 

ST= Case Is > 1 

5w Call ErrorForm. LoadError { "Dec MissingJurisdiction B3 n , Citation. CourtClause. CourtStart, Citation. CourtClause .CourtEnd) 

f*\ End Select 

h$'~ If Not ErrorForm. ignoreError Then 

For Each bcJurisdiction In colCompatibleJurisdictions 
l-J Call ErrorForm. Suggest ion. Change (Citation. CourtClause. Court Start, Citation . CourtClause . CourtEnd, bcJurisdiction .AbrvNam 

e & jj^." & Citation. CourtClause. Text) 

?* s Call ErrorForm. DisplaySuggestion 

Next bcJurisdiction 
Call ErrorForm. Activate 
End If 

Else 

' — If there is no recognized court clause, then suggest adding a juridsiction clause and court clause. 
•» Jones v. Smith, 123 N.W.2d 456 (1980) 
'» Jones v. Smith, 123 A.D.2d 456 (1980) 

Set colCompatibleCourts - CompatibleCourts 
Select Case colCompatibleCourts . Count 
Case 0 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction Al", 0, G) 
Case 1 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction A2" , 0, 0) 
Case Is > 1 

Call ErrorForm. LoadError ("Dec MissingJurisdiction A3", 0, 0) 
End Select 

If Not ErrorForm. IgnoreError Then 

For Each bcCourt In colCompatibleCourts 

Call ErrorForm. Suggestion. insert (AppropriateJurisdictionPosition(Citation) , JurisdictionAndCourtText (bcCourt) } 
Call ErrorForm. DisplaySuggestion 
Next bcCourt 
Call ErrorForm. Activate 
End If 

End If 

End If 

End Sub 

Private Function JurisdictionAndCourtText (Court As cCourt) 



If Court . Jurisdictionlmplicit 
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Or Not {Citation. Court Clause Is Nothing) Then 
JurisdictionAndCourtText = Court .AbrvName 

Else 

JurisdictionAndCourtText = Court. Parent .AbrvName & " " & Court .AbrvName 
End If 

End Function 

Private Sub CheckMissingCourt { ) 

' — If the jurisdiction was determined though parse but the court was not and there is no court clause, then suggest adding a 
' court clause for every court that is a good match for the reporters and date. 
•» Jones v. Smith, 123 P. 2d 456 {1980} 

Dim colCompatibleCourts As Collection 

Dim bcCourt As cCourt 

Dim InglnsertionPosition As Long 



If Not Citation. Jurisdiction Is Nothing Then 

If Citation. Court Is Nothing And Citation. CourtClause Is Nothing Then 

Set colCompatibleCourts = CompatibleCourts (Citation. Jurisdiction) 
Select Case colCompatibleCourts. Count 
Case 0 

Call ErrorForm.LoadError { "Dec MissingCourt 1", 0, 0) 
Case 1 

Call ErrorForm.LoadError ( "Dec MissingCourt 2", 0, 0) 
Case Is > 1 

Call ErrorForm. LoadError ( "Dec MissingCourt 3", 0, 0) 
End Select 



If Not ErrorForm. IgnoreErr or Then 

InglnsertionPosition = AppropriateCourtPosition (Citation) 
For Each bcCourt In colCompatibleCourts 

Call ErrorForm. Suggestion. Insert (InglnsertionPosition, bcCourt .AbrvName) 
Call ErrorForm. Display-Suggestion 
Next bcCourt 
A . Call ErrorForm. Activate 

Q End If 

HJ End If 
Es^d If 

End Sb3| 

PrivaM^ Sub ChecklnconsistentJurisdictionAndCourt 0 

If the court clause is inconsistent with the citation's jurisdiction, then suggest either replacing the court clause 
with a compatible jurisdiction, or replacing the jurisdiction clause with a compatible court. 

%l NB: This sub ONLY checks when there is a court clause that disagrees with a jurisdiction clause. 

Fim bcCourt As cCourt 

JjfrijEi bcJurisdiction As cJurisdiction 



Is the court clause's parent jurisdiction diferent than the jurisdiction clause's jurisdiction? 

IS. Not {Citation. JurisdictionClause Is Nothing) And Not (Citation. CourtClause Is Nothing) Then 
If Not (Citation. CourtClause. Court. Parent Is Citation. JurisdictionClause .Jurisdiction) Then 

J** ■ — It the court clause's parent jurisdiction is federal and a state jurisdiction clause immediately follows the court clause, 

jhsi * do not flag an error — this is handled in CheckExtraneousJurisdictionOrCourt . 

If Not ( Citation. CourtClause. Court. Parent. FullName = "Federal" _ 

And Citation. JurisdictionClause. JurStart = ActiveDoc .Words .NextFullWord{Citation. CourtClause . CourtEnd) ) Then 



If Citation. CourtClause. Court. Parent Is Citation. Jurisdiction Then 
'» Jones v. Smith, 123 F.2d 456 (Minn. 2d Cir. 1990) 

Call ErrorForm.LoadError ( "Dec InconsistentJurAndCourt 1", Citation. JurisdictionClause. JurStart , Citation. JurisdictionCl 
ause . JurEnd, Citation . Jurisdiction . FullName , Citation . CourtClause . Court . FullName , Ci tati on , CourtClause . Text , Citation . JurisdictionClause . Ju 
r isdiction . FullName ) 

Elself Citation. CourtClause. Court . Jurisdictionlmplicit Then 
■» Jones v. Smith, 123 N.W.2d 456 (Minn. 2d Cir. 1990) 

Call ErrorForm.LoadError ( "Dec InconsistentJurAndCourt 2", Citation. CourtClause. CourtStart, Citation . CourtClause . CourtEn 
d, Citation. Jurisdiction. FullName, Citation. JurisdictionClause .Text , Citation . CourtClause . Court . FullName) 
Else 

'» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct. CI. 1990} 

Call ErrorForm.LoadError { "Dec InconsistentJurAndCourt 3", Citation. CourtClause. CourtStart, Citation. CourtClause . CourtEn 
d, Citation. Jurisdiction. FullName, Citation. JurisdictionClause . Text) 
End If 



If Not ErrorForm . IgnoreErr or Then 



1 — Suggest replacing or deleting the jurisdiction. 

If Citation. CourtClause. Court . Jurisdictionlmplicit Then 

Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause. JurStart, Citation. JurisdictionClause. JurEnd) 

Call ErrorForm. Display-Suggestion 

Else 

For Each bcJurisdiction In CompatibleJurisdictions 

Call ErrorForm. Suggestion . Change (Citation. JurisdictionClause .JurStart , Citation. JurisdictionClause . JurEnd, bcJu 

risdict ion .AbrvName) 

Call ErrorForm. Di splay Suggest ion 
Next bcJurisdiction 
End If 

' — Suggest replacing the court clause. 

For Each bcCourt In CompatibleCourts (Citation. JurisdictionClause. Jurisdiction) 
If bcCourt .AbrvName = "" Then 

Call ErrorForm. Suggest ion.Delece(Citaci on. CourtClause . CourtStart, Citation. CourtClause . CourtEnd) 
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Call ErrorForm. DisplaySuggest ion 



me) 



Else 

Call ErrorPorm. Suggestion . Change {Citation. CourtClause . Courts tart, Citation. CourtClause . CourtEnd, bcCourt . AbrvKa 

Call ErrorForm. DisplaySuggestion 
End If 
Next bcCourt 

Call ErrorForm. Activate 

End If 

End If 

End If 
End If 

End Sub 

Private Sub CheckExtraneous Jurisdiction ( } 

' — Suggest deleting the jurisdiction clause if the jurisdiction is redundant because it is identified by the court clause. 

If Not (Citation. JurisdictionClause Is Nothing) And Not (Citation. CourtClause Is Nothing) Then 
If CourtClauseIDsJurisdiction( ) Then 

If Citation. Jurisdiction. FullName = "Federal" _ 

And Citation. JurisdictionClause. Jurisdiction. FullName = "Federal" Then 

* -- If a federal jurisdiction clause is redundant because it is identified by a federal court clause, then suggest deleting 
' the jurisdiction clause. 

'» Jones v. Smith, 123 F.2d 456 (Fed. 8th Cir. 1980) 

Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction A" , Citation. JurisdictionClause .JurStart, Citation. JurisdictionClause . 
JurEnd, Citation . Court . FullName) 

If Not ErrorForm. IgnoreErr or Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd) 
f~\ Call ErrorForm. Activate 

7^ End If 

v_"s Elself Citation. Jurisdict ion. FullName = "Federal" _ 

And Citation. JurisdictionClause .Jurisdiction. FullName <> "Federal" _ 
W And ClausesAreAdjacent (Citation. JurisdictionClause, Citation. CourtClause) Then 

iyl ' — If a non-federal jurisdiction clause is inconsistant with a federal court clause, and the jurisdiction clause 

a". ' immediately follows a federal court clause, then suggest deleting the jurisdiction clause. (If the jurisdiction clause 

P~ ■ does not immediately follow the court clause, that error is handled by ChecklnconsistentJurisdictionAndCourt . ) 

fi% '» Jones v. Smith, 123 F.2d 456 (8th Cir. (Minn.) 1980) 

MZ Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction B" , Citation. JurisdictionClause .JurStart, Citation. JurisdictionClause . 

JurEnd, Citation. Court .FullName) 

H If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause .JurStart, Citation. JurisdictionClause. JurEnd) 
a=l Call ErrorForm. Activate 

Hi End If 

O Elself Citation. Jurisdic t ion. FullName <> "Federal" _ 

s " And Citation . JurisdictionClause . Jurisdiction Is Citation. Jurisdiction Then 

fz\ '-- If the state jurisdiction clause is redundant because it is identified by the state court clause, then suggest deleting 

' the jurisdiction clause. 
|t-j- '» Jones v. Smith, 123 N.W. 456 (N.D. Dakota 1880) 

Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction C", Citation. JurisdictionClause .JurStart, Citation. JurisdictionClause. 
JurEnd, Citation. Court .FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd) 

Call ErrorForm. Activate 
End If 

End If 

End If 
End If 

End Sub 

Private Sub CheckExtraneousCourtAndJurisdiction ( ) 

1 — Suggest deleting the court and/or jurisdiction if either is identifed by a reporter clause. 

Dim bcReporterlDingJur As cReporter 
Dim bcReporter IDingCourt As cReporter 
Dim bolExtraneousJurisdiction As Boolean 
Dim bolExtraneousCourt As Boolean 
Dim bolFixCour t And Jur Together As Boolean 



If Not (Citation. JurisdictionClause Is Nothing) Then 

Set bcReporterlDingJur = ReporterlDingJurisdiction {Citation. Jurisdiction) 

If Not (bcReporterlDingJur Is Nothing) Then bolExtraneousJurisdiction = True 

End If 

If Not (Citation. CourtClause Is Nothing) Then 

Set bcReporterlDingCourt = Reporter IDingCourt (Citation. Court ) 

If Not (bcReporterlDingCourt Is Nothing) Then bolExtraneousCourt = True 

End If 



If bolExtraneousJurisdiction And bolExtraneousCourt Then 
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If Citation. JurisdictionClause .NextClause Is Citation. CourtClause Then bo IF ixCourtAndJur Together - True 
End If 

If bolFixCourtAndJurTogether = True Then 

' — If both the jurisdiction and court are redundant because they are identified by a reporter clause, and the court 

clause immediately follows the jurisdition clause, then suggest deleting the jurisdiction clause and court clause 
' together. 

'» Jones v. Smith, 123 111. App. 2d 456 (111. App. Ct. 1980) 
'» Jones v. Smith, 123 Ct. CI. 456 (Fed. Ct. Cl . 1980} 

Call ErrorForm. LoadError ( "Dec ExtraneousCourtAndJurisdiction A" , Citation . JurisdictionClause . JurStart, Citation. CourtClause . CourtEn 
d, Citation. Court .FullName, bcReporterlDingJur . FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation. CourtClause . CourtEnd) 

Call ErrorForm. Activate 
End If 

Else 

If bolExtraneousJurisdiction Then 

' — If the jurisdiction is redundant because it is identified by a reporter clause, then suggest deleting the 

jurisdiction clause. 
'» Jones v. Smith, 123 U.S. 456 (Fed. 1980) 
'» Jones v. Smith, 123 111. App. 2d 456 (111. 1980) 
'» Jones v. Smith, 123 Dakota 456 (N.D. 1880) 

Call ErrorForm. LoadError ( "Dec ExtraneousCourtAndJurisdiction B" , Citation. JurisdictionClause. JurStart, Citation . JurisdictionCla 
use . JurEnd, bcReporterlDingJur . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause . JurStart , Citation. JurisdictionClause. JurEnd) 
Call ErrorForm. Activate 

If ErrorForm. Result = Cancel Or ErrorForm. Result = Change Then Exit Sub 
End If 

Else If bolExtraneousCourt Then 

'— If the court clause is redundant because the court is designated by a reporter clause, then suggest deleting the 
j.„ ' court clause. 

Cl » Jones v. Smith, 123 111. App. 2d 456 (App. Ct. 1980) 

m i f \ '» Jones v. Smith, 123 Ct. Cl. 456 (Ct. Cl. 1980) 

%-A Call ErrorForm. LoadError ( "Dec ExtraneousCourtAndJurisdiction A", Citation. CourtClause. CourtStart, Citation . CourtClause . CourtEnd 
, Citation. Court. FullName, bcReporterlDingCourt .FullName) 
\i If Not ErrorForm. IgnoreError Then 

- ~ Call ErrorForm. Suggestion . Delete { Citation . CourtClause . CourtStart , Citation . CourtClause . CourtEnd) 

Ms Call ErrorForm. Activate 

^r. End If 
V* End If 

EgS If 

End Sub 

Private Sub CheckJurisdictionAndCourtSpelling{ ) 

figi strCorrectJurAbrv As String 

D^m strCorrectCourtAbrv As String 

Mai bolFixJurisdiction As Boolean 

||im bolFixCourt As Boolean 

Dim bolFixJurAndCourtTogether As Boolean 

f.zk. Determine whether the jurisdiction clause should be corrected. 
If Not (Citation. JurisdictionClause Is Nothing) Then 

strCorrectJurAbrv = Citation. JurisdictionClause. Jurisdiction. AbrvName 

If Citation. JurisdictionClause. Text <> strCorrectJurAbrv Then bolFixJurisdiction = True 
End If 

1 -- Determine whether the court clause should be corrected. 
If Not (Citation. CourtClause Is Nothing) Then 

strCorrectCourtAbrv = Citation. CourtClause. Court .AbrvName 

If Citation. CourtClause. Text <> strCorrectCourtAbrv Then bolFixCourt = True 
End If 

■ — If either needs to be corrected, then determine whether the jurisdiction clause is adjacent to the court clause and the 
' court clause is compatible with the jurisdiction. 
If bolFixJurisdiction Or bolFixCourt Then 

If Not (Citation. CourtClause Is Nothing) And Not (Citation .JurisdictionClause Is Nothing) Then 
If Citation. CourtClause. Court .Parent Is Citation. JurisdictionClause .Jurisdiction _ 
And Citation. JurisdictionClause. NextClause Is Citation, CourtClause Then 

bolFixJurAndCourtTogether = True 
End If 
End If 
End If 

If bolFixJurAndCourtTogether = True Then 

1 — If the court Clause is adjacent to the jurisdiction clause and either or both clauses needs to be corrected, then 

suggest correcting the two clauses simultaneously (as a single unit.) 
■» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct App. 1980) 

Call ErrorForm. LoadError ( "Dec JurisdictionAndCourtlDSpelling A", Citation. JurisdictionClause. JurStart, Citation. CourtClause. CourtEn 
d, Citation . CourtClause . Court . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (Citation. JurisdictionClause. JurStart, Citation. CourtClause. CourtEnd, strCorrectJurAbrv & " " & 
strCorrectCourtAbrv) 

Call ErrorForm. Activate 
End If 



Else 
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— Otherwise, suggest separate corrections for the jurisdiction and the court, if appropriate . 



' — Suggest correcting the jurisdiction if appropriate. 
■» Jones v. Smith, 123 N.W.2d 456 (Minnn. 1980) 



If bolFixJurisdiction = True Then 



Call ErrorForm. LoadError ( "Dec JurisdictionAndCourtlDSpelling B", Citation, JurisdictionClause. JurStart, Citation . JurisdictionCla 
use . JurEnd, Citation . JurisdictionClause . Jurisdiction . PullName ) 
If Not ErrorPorm . IgnoreError Then 

Call ErrorForm. Suggest ion. Change (Citation. JurisdictionClause . JurStart , Citation. JurisdictionClause . Jur End, strCorrectJurAbr 

v) 

Call ErrorForm. Activate 

If ErrorPorm. Result = Cancel Or ErrorPorm. Result = Change Then Exit Sub 
End If 



End If 



' — Suggest correcting the court if appropriate. 
'» Jones v. Smith, 123 F.2d 456 {CCA. 2d 1980) 



If bolFixCourt = True Then 



Call ErrorForm. LoadError ( "Dec JurisdictionAndCourtlDSpelling C'\ Citation. CourtClause. CourtStart, Citation. CourtClause .CourtEnd 
, Citation . CourtClause . Court . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change (Citation. CourtClause. CourtStart , Citation. CourtClause . CourtEnd, strCorrectCourtAbrv) 

Call ErrorForm. Activate 

If ErrorForm. Result = Cancel Or ErrorForm. Result = Change Then Exit Sub 
End If 



End If 



End If 



End Sub 



Priva^a Sub CheckValidYear ( } 

\t»ft If the designated year is not within a valid range for the designated court, then request the user to correct the year. 
■W Jones v. Smith, 123 N.W.2d 456 (Minn. Ct. App, 1950) 

If'4fot (Citation. Court Is Nothing) Then 

\f: If Citation. Year > 0 And Not {Citation. Court. YearStart <- Citation . Year And Citation .Year <= Citation. Court .Year End) Then 

5ll Call ErrorForm. LoadError ( "Dec ValidYear A", Citation. DateClause. DateEnd, Citation. DateClause .DateEnd, Citation. DateClause .Year , 
Citation. Court) 

If Not ErrorForm. IgnoreError Then 

pi Call ErrorForm. Suggestion. Change (Citation. DateClause. DateStart, Citation. DateClause. DateEnd, " ") 

i ; s5 Call ErrorForm. Activate 

#" End If 

H End If 
|n| If 

End £ii£> 

Private Function CourtClauselDsJurisdiction ( ) As Boolean 
fJjNot (Citation. CourtClause Is Nothing) Then 

r"!" If Citation. CourtClause. Court. Jurisdictionlmplicit = True Then 

If Cit ation. CourtClause. Court . Parent Is Citation. Jurisdiction Then 

CourtClauselDsJurisdiction = True 
End If 
End If 
End If 



End Function 



Private Function ReporterIDingJurisdiction{ Jurisdiction As c Jurisdiction) As cReporter 



Dim bcReporterClause As cClauseReporter 



For Each bcReporterClause In Citation. Report erClauses 

If bcReporterClause. Reporter. Implicit Jurisdiction Is Jurisdiction Then 
Set ReporterlDingJurisdiction = bcReporterClause . Reporter 
Exit Function 
End If 
Next bcReporterClause 

End Function 

Private Function Reporter IDingCourt (Court As cCourt) As cReporter 
Dim bcReporterClause As cClauseReporter 



For Each bcReporterClause In Citation. ReporterClauses 

If bcReporterClause. Reporter. ImplicitCourt Is Court Then 
Set ReporterlDingCourt = bcReporterClause . Reporter 
Exit Function 
End If 
Next bcReporterClause 

End Function 



Private Function CompatibleJurisdictions { } As Collection 
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Dim StrCourtClauseTextTrim As String 
Dim be Jurisdiction As (^Jurisdiction 
Dim bcMatchingCourt As cCourt 
Dim colJurisdictions As Collection 
Dim i As Integer 



' — Initialize the data. 

Set colJurisdictions = New Collection 
StrCourtClauseTextTrim - Ci tation . Cour tClause . Text 
Jurisdictions . ScoreReset 

'-- Step through each jurisdiction. 

For Each bcJurisdiction In Jurisdictions 

* — If there is a court in this jurisdiction with an alias that matches the court clause, then calculate points for the 
jurisdiction. 

Set bcMatchingCourt = bcJurisdiction. Courts . Item (StrCourtClauseTextTrim, True, Ci tation. DateClause. Year, True) 
If Not (bcMatchingCourt Is Nothing) Then 

• — Award one point to show that the jurisdiction has a matching court alias. 

bcJurisdiction. Score = bcJurisdiction, Score + 1 

'-- Award two points for every reporter clause that is compatible with the jurisdiction. 

bcJurisdiction. Score = bcJurisdiction. Score + 2 * Report ersCompatibleWithCourt (bcMatchingCourt , Citation.ReporterClauses) 
' — If there are no reporter clauses, then award one point if the citation's year is within the court's date range. 
' (If there are reporter clauses, then do not perform this test because points were awarded for a similar test in 
CompatibilityWithReporters. } 

If Citation.ReporterClauses. Count = 0 Then If Citation. Year > 0 And bcMatchingCourt . YearStart <= Citation. Year And Citation. Yea 
r <= bcMatchingCourt . YearEnd Then bcJurisdiction. Score = bcJurisdiction. Score + 1 

' — Award one point if the court clause exactly matches the correct abbreviation for the matching court (i.e., is not 
an incorrect alias.) 

If bcMatchingCourt . AbrvNameTrim - strCourtClauseTextTrim Then bcJurisdiction . Score = bcJurisdiction. Score + 1 
' — Determine whether this jurisdiction's score is the best score so far. 
End If 

Next bcJurisdiction 

■ — Return a collection of the jurisdictions that have a score within one point of the best score. (A permitted deviation of 
' ^. one points includes a jurisdiction if the court name was wrong or the year was wrong, compared to the best matches, but not 
'tjlj if both were wrong.) 

sifc? CompatibleJurisdictions = Jurisdictions .ScoresBest (2 , 1) 
End Function 

Priva^a Function CompatibleCourts {Optional Jurisdiction As c Jurisdiction) As Collection 

'™r The jurisdiction is the declaration is optional. If jurisdiction is supplied, then only search for compatible courts 
W ithin that jurisdiction. Otherwise, search for compatible courts within all jurisdictions. 

tiajjh bcCourtsToCheck As cCourts 

Eik IngMinimumScore As Long 

Dim bcCourt As cCourt 

KLm bcUniqueCourt As cCourt 

Jfriji colCourts As Collection 

ijrm colUniqueCourts As Collection 

©iji bolIsUnique As Boolean 

Determine the correct group of courts to search. 
Iff Jurisdiction Is Nothing Then 

|/j Set bcCourts To Check = Jurisdictions .AllCourts 

r\ IngMinimumScore - 2 

Mbe 

Set bcCourtsToCheck = Jurisdiction. Courts 
IngMinimumScore = 1 
End If 

1 — Step through each court and award points. 

bcCourtsToCheck . ScoreReset 

For Each bcCourt In bcCourtsToCheck 

' — Award two points for every reporter clause that is compatible with the jurisdiction. 

bcCourt .Score = bcCourt . Score + 2 * ReportersCompatibleVJithCourt (bcCourt , Citation.ReporterClauses, Citation. Year) 
' — Award one point if the date clause's year is within the court's date range. 

If Citation. Year > 0 And bcCourt .YearStart <= Citation. Year And Citation .Year <- bcCourt . YearEnd Then bcCourt . Score = bcCourt . Score 

+ 1 

Next bcCourt 

1 -- Create a collection of courts with scores that meet or exceed the minimum score and with scores within one point of the 
highest score. 

Set colCourts = bcCourtsToCheck. ScoresBest ( IngMinimumScore, 1) 

'-- Filter out courts from the same jurisdiction that have the same abbreviation. 
Set colUniqueCourts = New Collection 
For Each bcCourt In colCourts 
bolIsUnique - True 

For Each bcUniqueCourt In colUniqueCourts 

If bcCourt . Parent Is bcUniqueCourt . Parent Then 

If bcCourt .AbrvName = bcUniqueCourt .AbrvName Then 
bolIsUnique = False 
Exit For 
End If 
End If 
Next bcUniqueCourt 

If bolIsUnique = True Then colUniqueCourts. Add bcCourt 
Next bcCourt 

Set CompatibleCourts = colUniqueCourts 



End Function 
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5S 

' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolExpectedGroupCodes As Collection 
Private mbolUseParallel As Boolean 
Private mbolRulesDif f er As Boolean 
Private mbolSubmittedToStateCourt As Boolean 

Private Const invalidPriority As Long = 1000 

Public Sub CheckParallelReportersO 

Dim bcReporterClause As cClauseReporter 

If Not (Citation. Jurisdiction Is Nothing) Then 

If f Opt ions. For Court <> "Federal" And f Opt ions .ForCourt = Citation. Jurisdiction .FullName Then mbolSubmittedToStateCourt = True 

Call SetExpectedReporterGroups (mcolExpectedGroupCodes , mbolUseParallel, mbolRulesDif fer) 
Call CheckReporterRuleExceptions 

For Each bcReporterClause In Citation . ReporterClauses 
Call CheckDnrecognizedReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckRedundantReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnnecessaryReporter (bcReporterClause) 

If ErrorForm . Re sul t = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectOrder (bcReporterClause) 

If ErrorForm. Result - Change Or ErrorForm. Result = Cancel Then Exit Sub 

Next bcReporterClause 

«?5 Call CheckPreferredReporterMissing 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

'%! 

u 'Z Call CheckMissingReporter 

"Hi If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
£H Call CheckMissingReporterGroup 

l^l If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
If 

End Sub 

Privajjif Sub SetExpectedReporterGroups (ByRef ExpectedReporterGroups As Collection, ByRef UseParallel As Boolean, ByRef RulesDiffer As Boolea 
n) Z\ 

»«* Return the correct group of expected reporters {parallel or non-parallel) for this citation, based on whether the document 
M is being submitted to a state court within the same jurisdiction as the citation. 

if I Not (Citation. Court Is Nothing) Then 
™ If Citation. Court . ParallelReporters .Count = 0 Then 

f*'~ Set ExpectedReporterGroups = Ci tation. Court .NonParallelReporters 

UseParallel = False 

RulesDiffer = False 
Elself Citation. Court .NonParallelReporters. Count = 0 Then 

Set ExpectedReporterGroups = Citation. Court . ParallelReporters 

UseParallel = True 

RulesDiffer = False 
Elself mbolSubmittedToStateCourt Then 

Set ExpectedReporterGroups = Citation. Court . ParallelReporters 

UseParallel = True 

RulesDiffer = True 

Else 

Set ExpectedReporterGroups = Citation. Court .NonParallelReporters 
UseParallel = False 
RulesDiffer = True 
End If 
End If 

End Sub 

Private Sub CheckEeporterRuleExceptions ( ) 

If Not {Citation. DateClause Is Nothing) Then 

If Citation. Jurisdiction. FullName = "California" And Citation. DateClause. Year <= 1959 Then 

If Citation. Court. FullName = "Court of Appeal" Then 
Set mcolExpectedGroupCodes = New Collection 
If mbolSubmittedToStateCourt Then 

mcolExpectedGroupCodes .Add 1 

mcolExpectedGroupCodes .Add 2 

mbolUseParallel = True 

Else 

mcolExpectedGroupCodes .Add 2 
mcolExpectedGroupCodes .Add 1 
mbolUseParallel = False 
End If 
End If 
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If Citation. Court. FullName = "Appellate Departments of the Superior Court" Then 
Set mcol Expect edGroupCodes = New Collection 
If mbolSubmittedToStateCourt Then 

mcolExpect edGroupCodes .Add 1 

mcolExpect edGroupCodes .Add 2 

mbolUseParallel = True 

Else 

mcolExpect edGroupCodes . Add 2 
mcol Expect edGroupCodes . Add 1 
mbolUseParallel = False 
End If 
End If 

End If 
End If 

End Sub 

Private Sub CheckUnrecognizedReporter {CurrentClause As cClauseReporter) 

' — If a reporter is not recognized as used by this particular jurisdiction or court, then suggest deleting or changing the 
' reporter clause. 

Dim bcReporter As cReporter 
Dim strSuggestion As String 
Dim colPreferredReporters As Collection 



If Not (Citation. Court Is Nothing) Then 

If Citation. ReporterClauses. Count > 1 Then 

' — If the current clause's reporter is not used by the court and there is at least one other reporter clause, 

then suggest deleting the current clause. 
'» Jones v. Smith, 100 F.3d 105, 110, 200 N.W.2d 205, 210 {2d Cir. 2000) 
'» Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 <Ct . App . 1990) 
'» Jones v. Smith, 100 N.W.2d 105, 110, 200 111. App. 205, 210 (1990) 
Asa. '» Jones v. Smith, 100 F.2d 105, 110, 200 111. App. 205, 210 (1990) 

.fcFS If Not (CurrentClause. Reporter . Parent Is Citation. Court .CourtGroup) Then 

\i Call ErrorForm.LoadError ( "Pll UnrecognizedReporter 1", CurrentClause . ClauseStart , CurrentClause . ClauseEnd, CurrentClause. Re 

porter ^FullName, "the " & Citation. Court .FullName) 
\| If Not Error Form. IgnoreError Then 

=55 Call SuggestClauseDelete (CurrentClause) 

Call ErrorForm. Activate 
End If 

|U End If 

|= 

Else 

If the current clause's reporter is not used by the court and it is the only reporter clause, 
then suggest changing it to a valid reporter. 
Jones v. Smith, 200 N.W.2d 205, 210 (2d Cir. 2000) 
Jones v. Smith, 100 Minn. 105, 110 (Ct. App. 1990} 
Jones v. Smith, 100 U.S. 105, 110 (Minn. 1980) 

*Z~ If Not (CurrentClause. Reporter. Parent Is Citation. Court . CourtGroup) Then 

O Set colPreferredReporters = Pref erredReporters ( ) 

P** Call ErrorForm.LoadError ( "Pll UnrecognizedReporter 2", CurrentClause. ClauseStart, CurrentClause . ClauseEnd, CurrentClause . Re 

porter. FullName, "the " & Citation. Court. FullName, ListOfReporters (colPref erredReporters) ) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPreferredReporters 

Call SuggestClauseChange (CurrentClause, bcReporter, CurrentClause. PinStart > 0) 
Next bcReporter 
Call ErrorForm. Activate 
End If 

End If 

End If 

End If 

End Sub 

Private Sub CheckRedundantReporter (CurrentClause As cClauseReporter) 

' — If the citation contains another reporter with the same group code as the present reporter, then suggest that one 
' be deleted. 

'» Jones v. Smith, 100 N.W. 105, 110, 200 N.W.2d 205, 210 (Minn. 1980) 
Dim bcSubsequentReporterClause As cClauseReporter 



If Citation. ReporterClauses. Count > 1 Then 

For Each bcSubsequentReporterClause In Citation. ReporterClauses 

If bcSubsequentReporterClause. ClauseStart > CurrentClause . ClauseStart Then 

If bcSubsequentReporterClause . Reporter .GroupCode = CurrentClause .Reporter .GroupCode Then 

If Not (bcSubsequentReporterClause. Edit orClause Is CurrentClause Or CurrentClause . EditorClause Is bcSubsequentReporterC 

lause) Then 

Call ErrorForm.LoadError < "Pll RedunantReporter" , CurrentClause . ClauseStart , CurrentClause . ClauseEnd, bcSubsequentRe 
porterC lause . Reporter . AbrvName , CurrentClause . Reporter . AbrvName) 
If Not ErrorForm. IgnoreError Then 

Call SuggestClauseDelete (CurrentClause) 
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Call SuggestClauseDelete (bcSubseguentReporterClause) 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 
End If 

End If 

Next bcSubsequentReporterClause 
End If 

End Sub 

Private Sub CheckUnnecessaryReporter (CurrentClause As cClauseReporter ) 

' — If this reporter is used by the citation, but isn't necessary to satisfy the required reporters for this court, then suggest 
1 deleting it. 

'» Jones v. Smith, 100 U.S. 105, 110, 200 S. Ct. 205, 210 (1980) 

'» Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 (1980) [not submitted to Minnesota court] 

Dim bcPreferredReporter As cReporter 
Dim strSuggestion As String 



If Not ( Citation. Court Is Nothing) Then 

If IsValidReporter (CurrentClause. Reporter) Then 
If Not HasNeededReporter (CurrentClause) Then 

If mbolRulesDiffer And Not mbolSubmittedToStateCourt Then 

Call ErrorForm. LoadError (" Pll UnnecessaryReporter B" , CurrentClause , ClauseStart , CurrentClause. ClauseEnd, AddArticle {Ci 
tation. Jurisdiction. FullName) , CurrentClause .Reporter .FullName, Citation. Court . FullName) 
Else 

Call ErrorForm. LoadError ("Pll UnnecessaryReporter A" , CurrentClause. ClauseStart, CurrentClause . ClauseEnd, CurrentClause 
. Reporter , FullName , Citation . Court . FullName) 
End If 

If Not ErrorForm. IgnoreError Then 

Call SuggestClauseDelete (CurrentClause) 
ji-sj, Call ErrorForm. Activate 

4-j End If 



^ End If 

End If 
Exi| If 

End S\ffe 

Private Sub ChecklncorrectOrder (CurrentClause As cClauseReporter) 

Si If the current clause has a reporter that is in an incorrect position and should go earlier in the parallel citation, then 

suggest transposing the clause into its correct position. 
4> Jones v. Smith, 200 N.W.2d 205, 210, 300 Minn, 305, 310 (1980) 

l>> Jones v. Smith, 100 L. Ed 105, 110, 200 S. Ct. 205, 210, 300 U.S. 305, 310 (1980) 
Sfh. bcReporterClauseAtExpectedPosition As cClauseReporter 

Citation. ReporterClauses . Count > 1 Then 
hz£ Set bcReporterClauseAtExpectedPosition - ClauseAtExpectedStart (CurrentClause . Reporter) 
1^ If Not (bcReporterClauseAtExpectedPosition Is CurrentClause) Then 

G Call ErrorForm. LoadError ( "Pll IncorrectOrder" , CurrentClause . ClauseStart, CurrentClause . ClauseEnd, Curren t Clause. Reporter . Ful IN 

ame, 2 ScReporterClauseAtExpectedPosit ion. Reporter .FullName) 
f*x jf Not _ ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Transpose (CurrentClause. ClauseStart, CurrentClause. ClauseEnd, bcReporterClauseAtExpectedPosition. 

ClauseStart) 

Call ErrorForm. Activate 
End If 

End If 
End If 

End Sub 

Private Sub CheckPref err edReporterMis sing ( ) 

■ — If the citation should not have parallel reporters and the citation isn't using the best reporter, then suggest changing the 

current highest-rated clause to the preferred reporter. 
'» Jones v. Smith, 100 S. Ct. 105, 110 (1980) 

'» Jones v. Smith, 100 L. Ed. 105, 110, 200 S. Ct. 205, 210 (1980) 



Dim colPreferredReporters As Collection 

Dim bcReporter As cReporter 

Dim bcClauseToReplace As cClauseReporter 



If mbolUseParallel = False And Citation . ReporterClauses . Count > 0 Then 

Set colPreferredReporters = Pref erredReporters ( ) 
If colPreferredReporters. Count > 0 Then 

Set bcClauseToReplace = Citat ion. ReporterClauses (1) 

Call ErrorForm. LoadError ("Pll NotPref erredReporter " , bcClauseToReplace. ClauseStart , bcClauseToReplace . ClauseEnd, ListOfReporter 
s( colPreferredReporters) , bcClauseToReplace .Reporter .FullName) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPreferredReporters 

Call SuggestClauseChange (bcClauseToReplace, bcReporter, bcClauseToReplace. PinStart > 0) 
Next bcReporter 
Call ErrorForm. Activate 
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End If 




End If 
End If 

End Sub 

Private Sub CheckMissingReporter ( ) 

1 — If there are no reporter clauses, then suggest inserting a valid reporter clause. 
'» Jones v. Smith (Minn. 1970) 

Dim colPreferredReporters As Collection 
Dim bcReporter As cReporter 
Dim strSuggestion As String 



If Citation. ReporterClauses. Count = 0 Then 

Set colPreferredReporters = Pref erredReporters { ) 
If col Pref erredReporters . Count > 0 Then 

Call ErrorForm.LoadError ("Pll MissingReporter" , 0, 0, Listof Reporters { colPreferredReporters) ) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPreferredReporters 

Call SuggestClauselnsert (bcReporter, False) 

Next bcReporter 

Call ErrorForm. Activate 
End If 



End If 



End If 



End Sub 



Private Sub CheckMissingReporterGroup ( ) 

' Ss. If this citation should use parallel reporters, then check whether all of the necessary reporter groups are satisfied, 
■yi Jones v. Smith, 100 N.W.2d 105, 100 {Minn. 1970) [for Minnesota court] 

D^Fff colSuggestedReporters As Collection 
rfkj varGroupCode As Variant 
Dim bcReporter As cReporter 
strSuggestion As String 



fembolUseParallel = True And Citation. ReporterClauses. Count > 0 Then 

For Each varGroupCode In mcol Expect edGroupCodes 
s?s If ClauseMatchingGroup (varGroupCode) Is Nothing Then 

# s 

- Set colSuggestedReporters - ValidReporters (varGroupCode) 

If colSuggestedReporters .Count > 0 Then 

If mbolSubmittedToStateCourt Then 

?y Call ErrorForm.LoadError ( "Pll MissingReporterGroup 1", 0, 0, AddArticle (Citation. Jurisdiction. FullName) , ListOfRepo 

rter^feolSuggestedReporters) ) 
Else 

s»s Call ErrorForm. LoadError ( "Pll MissingReporterGroup 2", 0, 0, ListOf Reporters (colSuggestedReporters) ) 

I-. End If 

4 S | If Not ErrorForm. IgnoreError Then 

I , For Each bcReporter In ValidReporters (varGroupCode) 

Call SuggestClauselnsert (bcReporter, False) 
Next bcReporter 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result - Cancel Then Exit Sub 
End If 



End If 



End If 
Next varGroupCode 



End If 



End Sub 



Private Function ClauseAtExpectedStart (Reporter As cReporter) As cClauseReporter 



■ — Returns the clause which occupies the position at which the reporter should be located. If the reporter already exists 
' in the citation, returns its value in the current citation unless it should belong earlier in the parallel citations, 
i.e., this will not suggest a change if it should be moved later in the citation. 



Dim bcReporterClause As cClauseReporter 
Dim IngReporterPriority As Long 



If Citation. ReporterClauses .Count > 0 Then 

IngReporterPriority = Priority (Reporter) 

'-- Iterate through each reporter clause. 

For Each bcReporterClause In Citation. ReporterClauses 

' — If the reporter clause's reporter is the supplier reporter , then stop and return this clause as being in the 

correct position. 
If Reporter Is bcReporterClause . Reporter Then 

Set ClauseAtExpectedStart = bcReporterClause 
Exit Function 

Else 

If the reporter has a higher priority than the reporter clause it encounters, then return this reporter clause as 
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' where the reporter should be located. 

If IngReporterPriority < Priority {bcReporterClause . Reporter) Then 
Set ClauseAtExpectedStart = bcReporterClause 
Exit Function 
End If 
End If 
Next bcReporterClause 

End If 

End Function 

Private Function EndOf LastReporterClause ( ) As Long 
Dim bcLastReporterClause As cClauseReporter 

Set bcLastReporterClause = Citation. ReporterClauses (Citation. ReporterClauses. Count) 
If Act iveDoc .Words (bcLastReporterClause. ClauseEnd +1) = "," Then 
EndOfLastReporterClause = bcLastReporterClause . ClauseEnd + 2 

Else 

EndOfLastReporterClause = bcLastReporterClause. ClauseEnd + 1 
End If 

End Function 

Private Function Priori ty( Reporter As cReporter) As Long 

'-- Returns a value representing the order in which the reporter's group code falls within the expected groupcodes collection. 
A lower number means that the reporter has greater "priority," 

Dim i As Long 

Dim IngReporterGroupCode As Long 



• — If the reporter is valid for the citation's court, then assign its group code to the long. Otherwise, exit 
' the function and return zero. 
If IsValidReporter (Reporter) Then 

IngReporterGroupCode = Reporter . GroupCode 

Priority = InvalidPriority 
Exit Function 
F& If 

\-~ Step through each group code in the expected group codes to determine where the reporter's group code falls. 
fV| i = 1 To mcolExpectedGroupCodes. Count 

;aa If mcolExpectedGroupCodes (i) = IngReporterGroupCode Then 
m Priority = i 

l r ,i Exit Function 

\Z End If 
S#t i 

A valid group code was not located. 
Priority = InvalidPriority 

End ^fiction 

Privfi^ Function 1 sValidReporter (Reporter As cReporter) As Boolean 

hzih Returns "true" if the reporter is used by the citation's court. 
iF Not (Citation. Court Is Nothing) Then 

f~"l if Reporter . Parent . Parent Is Citation. Court . Parent Then IsValidReporter = True 

W& if 

End Function 



■ i ****************************************************************************** 
' ' Ensure that each clause is sorted, from lowest to highest, 

1 1 by reporter group number. If not in the appropriate position, suggest moving 
' * the clause to the appropriate position. 

i i ********************************************************** 
'Private Sub SortClausesByReporterGroup ( ) 

Dim i As Long 

Dim j As Long 
1 Dim objLaterReporterClause As cClauseReporter 
• Dim objEarlierReporterClause As cClauseReporter 

For i = 1 To Citation. Clauses. ReporterClauses, Count 

Set objEarlierReporterClause = Citation. Clauses .ReporterClauses ( i) 
' If Not (objEarlierReporterClause. Reporter Is Nothing) Then 

' For j = i + 1 To Citation -Clauses. ReporterClauses .Count 

' Set objLaterReporterClause - Citation. Clauses . ReporterClauses (j ) 

If Not (objLaterReporterClause. Reporter Is Nothing) Then 

If objLaterReporterClause . Reporter . GroupCode < objEarlierReporterClause . Reporter . GroupCode Then 
' Call mDisplayError .Transpose ( "T. 1 Change Clause Position", objLaterReporterClause . Clauses tart , objLaterReporterCla 

use. ClauseEnd, objEarlierReporterClause . ClauseStart, objLaterReporterClause.ReporterFullName, objEarlierReporterClause.ReporterFullHame) 
If gbo IS tart Over = True Then Exit Sub 

End If 

End If 
1 Next j 

End If 



Next i 
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'End Sub 

'Private Sub CheckDisfavoredReporters ( ) 

Dim bcReporterClause As cClauseReporter 
Dim strReporterAbrvName As String 
* Dim strSuggested As String 

For Each bcReporterClause In Citation . Clauses . ReporterClauses 
' StrReporterAbrvName = bcReporterClause . Report erAbrvName 

If Citation. Year >= 1845 _ 
And (strReporterAbrvName = "Monag." _ 
Or strReporterAbrvName - "Sadler" _ 
Or strReporterAbrvName = "Walk. " _ 
Or strReporterAbrvName = "Pennyp." ) Then 
If CitationUsesPinpoints Then 

strSuggested = " Pa, , " 

Else 

' strSuggested = " Pa. " 

End If 

If Citation. Words (bcReporterClause. ClauseEnd) = "," Then strSuggested = strSuggested & "," 

Suggestion. Forma ttedText = Citation. Format tedText 
' Call Suggestion. ReplaceWords (bcReporterClause .ClauseStart, bcReporterClause . ClauseEnd, strSuggested) 

Call mDisplaySrror. Change ( "T. 1 Use Preferred Reporter, Single", bcReporterClause . ClauseStart , bcReporterClause . ClauseEnd, "Pa. 
" , bcReporterClause . ReporterAbrvName) 

If gbolStartOver = True Then Exit Sub 
End If 

1 If strReporterAbrvName - "Tex. Sup. Ct . J." Then 

' If CitationUsesPinpoints Then 

strSuggested = " S.W,2d , " 

' Else 

strSuggested = " S.W.2d " 

End If 

If Citation. Words (bcReporterClause .ClauseEnd) = " # " Then strSuggested = strSuggested & "," 
Suggestion. Format tedText = Citation . Forma ttedText 
' Call Suggestion. ReplaceWords (bcReporterClause. ClauseStart, bcReporterClause . ClauseEnd, strSuggested) 

± _ Call mDi splayErr or. Change ( "T. 1 Use Preferred Reporter, Single", bcReporterClause. ClauseStart , bcReporterClause .ClauseEnd, "S.W 

. 2d\y|rReporterClause .ReporterAbrvName) 

^~ If gbolStartOver = True Then Exit Sub 

%l End If 
S. I 

ifect bcReporterClause 
SJ 
■ End =Sub 

Private Sub SuggestClauseDelete (ReporterClause As cClauseReporter) 

<jf |l ErrorForm . Suggestion . Delete ( ReporterClause . ClauseStart , ReporterClause .ClauseEnd) 
C&ll FixCourtAndJurisdict ion (ReporterToDelete :=ReporterClause. Reporter) 
3&11 ErrorForm. Display-Suggestion 

End §ab 

Privffl Sub SuggestClauseChange (ReporterClause As cClauseReporter, NewReporter As cReporter, IncludePinCite As Boolean) 
q£bl strSuggestion As String 

ItrSuggestion = " " & NewReporter .AbrvName & " " 

£f| IncludePinCite Then strSuggestion = strSuggestion & ", " 

Jail ErrorForm. Suggestion. Change (ReporterClause. ClauseStart, ReporterClause . ClauseEnd, strSuggestion) 
£akl FixCourtAndJurisdict ion (ReporterToDelete : ^ReporterClause . Reporter, ReporterToAdd: ^NewReporter ) 
Call ErrorForm. DisplaySuggest ion 

End Sub 

Private Sub SuggestClauselnsert (Reporter As cReporter, IncludePinCite As Boolean) 

Dim strSuggestion As String 

Dim bcLastReporterClause As cClauseReporter 

Dim InglnsertionPos As Long 



strSuggestion = " " & Reporter .AbrvName & " ," 

If IncludePinCite Then strSuggestion = strSuggestion & " , " 

If Ci tat ion. ReporterClauses. Count > 0 Then 

Set bcLastReporterClause = Citation. ReporterClauses (Citation. ReporterClauses. Count) 

InglnsertionPos = bcLastReporterClause . ClauseEnd + 1 
El self Not (Citation.CaseNameClause Is Nothing) Then 

InglnsertionPos ~ Citation . CaseNameClause . ClauseEnd + 1 

Else 

InglnsertionPos = Citation. AllClauses (1) . ClauseEnd 
End If 

If ActiveDoc .Words (InglnsertionPos) = "," Then 
InglnsertionPos = InglnsertionPos + 1 

Else 

strSuggestion = ", " & strSuggestion 
End If 

Call ErrorForm. Suggestion. Insert (InglnsertionPos, strSuggestion) 
Call FixCourtAndJurisdiction(ReporterToAdd:=Reporter) 
Call ErrorForm. DisplaySuggest ion 

End Sub 

Private Sub FixCourtAndJurisdiction (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) 



If Citation. JurisdictionClause Is Nothing Then 
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' — Add a jurisdiction clause if necessary. 

If NeedsJurisdictionClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm. Suggestion. Insert (AppropriateJurisdictionPosition (Citation) , Citation. Jurisdiction. AbrvName) 
End If 

Else 

' — Delete the jurisdiction clause if necessary. 

If Not NeedsJurisdictionClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause. JurStart, Citation. JurisdictionClause. JurEnd) 
End If 
End If 

If Citation. CourtClause Is Nothing Then 
1 — Add a court clause if necessary. 

If NeedsCourtClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm. Suggestion. Insert (AppropriateCourtPosition( Citation) , Citation. Court .AbrvName) 
End If 

Else 

' — Delete the court clause if necessary. 

If Not NeedsCourtClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm . Suggestion , Delete (Citation . CourtClause . CourtStart , Citation . CourtClause . Cour tEnd) 
End If 
End If 

End Sub 

Private Function NeedsJurisdictionClause (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) As Boolean 
Dim bcReporterClause As cClauseReporter 



If Not Citation. Jurisdiction Is Nothing Then 

' — Start by assuming that a jurisdiction clause is needed 
NeedsJurisdictionClause = True 

1 — If the jurisdiction is federal, then a jurisdiction clause is not needed. 
If Citation. Jurisdiction. FullName = "Federal" Then 
NeedsJurisdictionClause = False 
Exit Function 
O End If 

%* if a reporter being added identifies the jurisdiction, then a jurisdiction clause is not needed. 
SA If Not (ReporterToAdd Is Nothing) Then 

If ReporterToAdd. Implicit Jurisdiction Is Citation. Jurisdiction Then 
\l NeedsJurisdictionClause = False 

sss Exit Function 

IH End If 

End If 

f.f% ' — If the jurisdiction is implicit from an existing reporter clause, then a jurisdiction clause is not needed. 
T»l For Each bcReporterClause In Citation, Report erClauses 

4M ' — If a reporter is being deleted, then don't check whether this reporter identifies the jurisdiction. 

If Not (bcReporterClause. Reporter Is ReporterToDelete) Then 
~ If bcReporterClause. Reporter . ImplicitJurisdiction Is Citation. Jurisdiction Then 

f*\ NeedsJurisdictionClause - False 

2f! Exit Function 

f|| End If 

}il End If 
V Next bcReporterClause 

§d If 

End Function 

Private Function NeedsCourtClause (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) As Boolean 
Dim bcReporterClause As cClauseReporter 



If Not Citation. Court Is Nothing Then 

' — Start by assuming that a court clause is needed 
NeedsCourtClause = True 

1 — If the court is one that doesn't need an abbreviation (i.e., a supreme court), then a court clause is not needed. 
Tf Citation. Court .AbrvName = "" Then 

NeedsCourtClause - False 

Exit Function 
End If 

' — If a reporter being added identifies the court, then a court clause is not needed. 
If Not (ReporterToAdd Is Nothing) Then 

If ReporterToAdd. ImplicitCourt Is Citation. Court Then 
NeedsCourtClause = False 
Exit Function 
End If 
End If 

' — If the court is implicit from an existing reporter clause, then a court clause is not needed. 
For Each bcReporterClause In Citation. ReporterClauses 

' — If a reporter is being deleted, then don't check whether this reporter identifies the court. 
If Not (bcReporterClause. Reporter Is ReporterToDelete) Then 

If bcReporterClause .Reporter . ImplicitCourt Is Citation. Court Then 
NeedsCourtClause = False 
Exit Function 
End If 
End If 
Next bcReporterClause 



End If 
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End Function 

Private Function HasNeededReporter (ReporterClause As cClauseReporter ) As Boolean 

Dim varGroupCode As Variant 

Dim IngReporterClauseGroup As Long 

Dim IngPriority As Long 

Dim bcReporterClause As cClauseReporter 



If mbolUseParallel Then 

'-- If this citation should use parallel citations, then determine whether this reporter's group code is needed to satisfy 
one of the the required group codes. 

If IsValidReporter (ReporterClause. Reporter) Then IngReporterClauseGroup = ReporterClause. Reporter .GroupCode 

If ReporterClause. Reporter. Parent. Parent Is Citation. Court . Parent Then 

IngReporterClauseGroup = ReporterClause. Reporter .GroupCode 
End If 

For Each varGroupCode In mcolExpectedGroupCodes 
If varGroupCode = IngReporterClauseGroup Then 
HasNeededReporter = True 
Exit Function 
End If 
Next varGroupCode 

Else 

• — If this citation shouldn't use parallel citations, then determine whether there's another reporter clause that 
has a higher priority over the current clause. 

IngPriority = Priority (ReporterClause. Reporter) 
If IngPriority < InvalidPriority Then 

HasNeededReporter = True 

For Each bcReporterClause In Citation .ReporterClauses 
£ ^ If Not (ReporterClause Is bcReporterClause) Then 

O If Priority (bcReporterClause .Reporter) < IngPriority Then 

,21 HasNeededReporter = False 

Exit Function 
M End If 

J"'* End If 

\| Next bcReporterClause 

tfl End If 

End If 

End Function 

Private Function Pref erredReporters O As Collection 

pi- Return a collection of reporters in the reporter group with valid group codes that are higher in priority than those 
jjjf* already in the collection 

colPref erredReporters As Collection 
M£i IngBestPriority As Long 
Dim IngPriority As Long 
fliti bcReporterClause As cClauseReporter 
ifffi bcReporter As cReporter 

' — Determine the highest priority within the current reporter clauses. 

IngBestPriority = InvalidPriority + 1 

For Each bcReporterClause In Citation. ReporterClauses 

IngPriority = Priority {bcReporterClause .Reporter) 

If IngPriority < IngBestPriority Then 
IngBestPriority = IngPriority 

End If 
Next bcReporterClause 

' — Check each valid reporter. Add the reporter if it has a higher priority than the current highest priority. 
Set colPref erredReporters = New Collection 
For Each bcReporter In ValidReporters { ) 

If Priority (bcReporter) < IngBestPriority Then colPref erredReporters .Add bcReporter 
Next bcReporter 

Set PreferredReporters = colPref erredReporters 
End Function 

Private Function BestClause ( ) As cClauseReporter 

' — Returns the reporter clause with the highest priority. 

Dim bcReportei Clause As cClauseReporter 
Dim IngBestPriority As Long 
Dim IngPriority As Long 



For Each bcReporterClause In Citation. ReporterClauses 
If Not (bcReporterClause Is BestClause) Then 

IngPriority = Priority (bcReporterClause .Reporter) 
If IngPriority < IngBestPriority Or IngBestPriority = 0 Then 
IngBestPriority - IngPriority 
Set BestClause = bcReporterClause 
End If 
End If 
Next bcReporterClause 
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End Function 




Private Function ClauseMatchingGroup (GroupCode As Variant) As cClauseReporter 

' — Returns an existing reporter clause in the citation that matches the supplied group code. 
Dim bcReporterClause As cClauseReporter 



For Each bcReporterClause In Citation. ReporterClauses 
If IsValidReporter (bcReporterClause. Reporter) Then 

If bcReporterClause. Reporter .GroupCode = GroupCode Then 
Set ClauseMatchingGroup = bcReporterClause 
Exit Function 
End if 
End If 
Next bcReporterClause 

End Function 

Private Function ValidReporters (Optional GroupCode As Variant) As Collection 

' — Returns a collection of reporters that are not editor reporters and that match the date for the citation. If a group code 
is supplied, then only match reporters that have the same group code. 

Dim bcReporter As cReporter 

Dim IngYear As Long 

Dim col ValidReporters As Collection 



Set colValidReporters = New Collection 

If Not (Citation. DateClause Is Nothing) Then IngYear = Ci tat ion. DateClause .Year 

For Each bcReporter In Citation. Court .Reporters 
If Not (bcReporter . IsEditorReporter) Then 

If {bcReporter .YearS tart <= IngYear And IngYear <= bcReporter . YearEnd) Or IngYear = 0 Then 
If IsMissing (GroupCode) Then 

colValidReporters . Add bcReporter 
Elself bcReporter . GroupCode = GroupCode Then 
LJ colValidReporters .Add bcReporter 

,^ End If 

r " End If 
%j End If 
rtei^t bcReporter 

5|$| ValidReporters = colValidReporters 
End faction 

PrivaM# Function ListOfReporters (Reporters As Collection) As String 

^f- Based on the supplied collection of reporters, create a string containing, e.g., " [ReporterA] , [ReporterB] or 
' s [ReporterC] . " 

ifltji bcReporter As cReporter 
Ddm i As Long 

Pot i = 1 To Reporters. Count 
M If i = 1 Then 

i-- ListOfReporters = Reporters ( i) .AbrvName 

l-J Elself i < Reporters . Count Then 

ListOfReporters = ListOfReporters & ", " & Reporters (i) .AbrvName 

Else 

If Reporters . Count < 3 Then 

ListOfReporters = ListOfReporters & " or " & Reporters (i) .AbrvName 

Else 

ListOfReporters ~ ListOfReporters & " , or " & Reporters (ij .AbrvName 
End If 
End If 
Next i 



End Function 
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' — Copyright 2001 by Robert L. Jacobson. 

Option Explicit 

Public Sub CheckReporter ( ) 

Dim bcReporterClause As cClauseReporter 

For Each bcReporterClause In Citation.ReporterClauses 
Call CliecklncorrectAbrv f bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingVolumeNumber (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectVolumeNumber (bcReporterClause) 

If ErrorForm. Result - Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingFirstPage (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckPunctuationAf terFirstPage (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
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Call CheckMissingPinpoint (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Call ChecklnvalidYear (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Next bcReporterClause 



End Sub 



Private Sub ChecklncorrectAbrv (CurrentClause As cClauseReporter) 



1 If the reporter is not punctuated or spelled correctly, then suggest correcting it. 
'§o§ Jones v. Smith, 200 U.SS. 500, 505 (1980) 
'?S Jones v. Smith, 200 FSupp 500, 505 (D. Md. 1980) 
Jones v. Smith, 100 N.2d 105, 110 (1980) 

Dim colSuggestions As Collection 
Diya colUniqueReporters As Collection 
UiM bcReporter As cReporter 

y i 

#£" CurrentClause .Reporter .AbrvName <> CurrentClause .AbrvText Then 

t!.T ' — Generate a collection containing all of the reporters with similar names. 
iC Set colSuggestions = New Collection 

£ If Not (Citation. Court Is Nothing) Then Set colSuggestions = Citation. Court . Reporters . Items (CurrentClause .AbrvText, True, True) 
If col Suggest ions. Count = 0 Then 

f|f If Not (Citation. Jurisdiction Is Nothing) Then Set colSuggestions = Citation. Jurisdiction. AllReporters . Items (CurrentClause. Abrv 

Text L^True , True ) 
Q End If 

t*" If colSuggestions .Count = 0 Then 

s*3!a Set colSuggestions = Jurisdictions .AllReporters . Items (CurrentClause .AbrvText, True, True) 

J** End If 

' — colSuggestions may contain reporters with duplicate abbreviations. Filter out the duplicate abbreviations. 
Set colUniqueReporters = New Collection 
For Each bcReporter In colSuggestions 

If Not ExistsInCollection (bcReporter, colUniqueReporters) Then colUniqueReporters .Add bcReporter 
Next bcReporter 



'-- Display the error 

If colUniqueReporters . Count = 1 Then 



Call ErrorForm. LoadError ( "Rep IncorrecfcAbrv 1", CurrentClause .AbrvStart, CurrentClause .AbrvEnd, CurrentClause .Reporter , FullName 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Change (CurrentClause. AbrvStart, CurrentClause .AbrvEnd, CurrentClause .Reporter .AbrvName) 

Call ErrorForm. Activate 
End If 



Else 



Call ErrorForm. LoadError ( "Rep incorrectAbrv 2 " , CurrentClause. AbrvStart , CurrentClause. AbrvEnd) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colUniqueReporters 

Call ErrorForm. Suggestion. Change (CurrentClause. AbrvStart , CurrentClause. AbrvEnd, bcReporter. AbrvName) 
Call ErrorForm. DisplaySuggestion 
Next bcReporter 
Call ErrorForm. Activate 
End If 

End If 

End If 

End Sub 

Private Sub CheckMissingVolumeNumber (CurrentClause As cClauseReporter) 

' — If the reporter citation is missing a volume number, then suggest inserting a placeholder or the correct volume number. 
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Dim IngExpectedVolumeNumber As Long 
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If Current Clause. VolumeNumberLocation = 0 Then 

'-- If . this clause has an associated editor clause with a valid volume number, or an associated editor clause that 
' doesn't need a volume number, then calculate the correct volume number for this clause. 
If Not (CurrentClause. EditorClause Is Nothing) Then 
With CurrentClause. EditorClause 

If .VolumeNumber >= .Reporter. Volume Start And . VolumeNumber <= . Reporter .VolumeEnd Then 

IngExpectedVolumeNumber = (.VolumeNumber - .Reporter . VolumeStart) + .Reporter .MainReporterVolumeFirst 
Elself .VolumeNumber = 0 Then 

if .Reporter .VolumeStart = .Reporter .VolumeEnd Then IngExpectedVolumeNumber = .Reporter .MainReporterVolumeFirst 
End If 
End With 
End If 

If IngExpectedVolumeNumber > 0 Then 

'» Jones v. Smith, U.S. (3 Wheat.) 500, 505 (1820) 
■» Jones v. Smith, Ky. (Sneed) 500, 505 (1803) 

Call ErrorForm. LoadError ( "Rep MissingVolumeNumber A", CurrentClause. AbrvStart, CurrentClause, AbrvEnd, CurrentClause. Reporter .Fu 



llName) 



If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert {CurrentClause .AbrvStart , IngExpectedVolumeNumber) 

Call ErrorForm. Activate 
End If 

Else 

'» Jones v. Smith, U.S. 500, 505 (1990) 



UName) 



Call ErrorForm. LoadError ( "Rep MissingVolumeNumber B", CurrentClause .AbrvStart , CurrentClause. AbrvEnd, CurrentClause .Reporter . Fu 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (CurrentClause. AbrvStart, " ") 

Call ErrorForm. Activate 
End If 

^ End If 

Efta If 

End Sfcbf! 

Privates Sub ChecklncorrectVolumeNumber (CurrentClause As cClauseReporter) 

-^?-= If the volume number is outside of the correct range of volume numbers for the reporter, then suggest changing or 
'l-i replacing the volume number . 

Jones v. Smith, 70 Del. 200, 205 (1960) 

I§~ Current Clause. VolumeNumber > 0 Then 

„ If Not {CurrentClause. Reporter .VolumeStart <= CurrentClause. VolumeNumber _ 
~^ And CurrentClause .VolumeNumber <= CurrentClause .Reporter .VolumeEnd) Then 

IT"! Call ErrorForm. LoadError ( "Rep IncorrectVolumeNumber " , CurrentClause. VolumeNumberLocation, CurrentClause . VolumeNumber Locat ion, C 

urreilieiause . Reporter . FullName ) 

if Not ErrorForm. IgnoreError Then 

^ Call ErrorForm. Suggestion. Change (CurrentClause. VolumeNumberLocat ion, CurrentClause .VolumeNumber Locat ion, " ") 

jLl Call ErrorForm. Activate 

End If 

r!' End If 
End If 
End Sub 

Private Sub CheckMissingFirstPage (CurrentClause As cClauseReporter) 

'-- If the first page number is missing, then suggest inserting a placeholder. 

'» Jones v. Smith, 100 N.W.2d {Minn. 1990) 

'» Jones v. Smith, 100 N.W.2d, 205 (Minn. 1990) 

If CurrentClause. FirstPageLocation = 0 Then 

Call ErrorForm. LoadError { "Rep Mi ssingFirst Page" , 0, 0, CurrentClause .Reporter .FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (CurrentClause .AbrvEnd + 1, " ") 

Call ErrorForm. Activate 
End If 

End If 

End Sub 

Private Sub CheckPunctuationAf terFirstPage (CurrentClause As cClauseReporter) 

' — If the punctuation between the first page number and the pinpoint page number is not a single comma, then suggest inserting 
a comma or changing the existing punctuation to a comma. 

Dim strPunctuation As String 



If CurrentClause. FirstPageLocation > 0 _ 
And CurrentClause .PinStart > 0 Then 

If CurrentClause. PinStart = CurrentClause. FirstPageLocation + 1 Then 

' Suggest inserting a comma. 

'» Jones v. Smith, 123 N.W.2d 456 480 (Minn. 1980) 
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Call ErrorForm. LoadError ( "Rep PunctuationAf terFirstPage A", CurrentClause . FirstPageLocation, CurrentClause. PinStart) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert {CurrentClause. PinS tart, ",") 

Call ErrorForm. Activate 
End If 

Else 

strPunctuation = ActiveDoc. Words {CurrentClause. FirstPageLocation + 1, CurrentClause . PinStart - 1) 
If strPunctuation <> "," Then 

' — Suggest changing the incorrect punctuation to a comma. 
'» Jones v. Smith, 123 N.W.2d 456,, 480 (Minn. 1980} 
'» Jones v. Smith, 123 N.W.23 456} 480 (Minn. 1980) 

Call ErrorForm. LoadError ( "Rep PunctuationAf terFirstPage B" , CurrentClause , FirstPageLocation + 1, CurrentClause . PinStart - 1 

) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (CurrentClause. FirstPageLocation + 1, CurrentClause . PinStart - 1, ",") 

Call ErrorForm. Activate 
End If 

End If 
End If 
End If 

End Sub 

Private Sub CheckMissingPinpoint (CurrentClause As cClauseReporter) 

' — If the pinpoint page number is missing, then suggest inserting a placeholder for the pinpoint page number. 
'» Jones v. Smith, 123 N.W,2d 456 (Minn. 1980) 

If CurrentClause. PinStart = 0 And CurrentClause .FirstPageLocation > 0 Then 

Call ErrorForm. LoadErr or ( "Dec MissingPinpoint " , 0, 0, CurrentClause. Reporter .FullName) 

If Not ErrorForm. IgnoreError Then 

If ActiveDoc, Words (CurrentClause . FirstPageLocation + l) = " , " Then 

^ Call ErrorForm. Suggestion. Insert (CurrentClause. FirstPageLocation + 2, " , 11 ) 

T| Else 

J^I Call ErrorForm. Suggestion. Insert (CurrentClause . FirstPageLocation + 1, , " ) 

%l End If 

V! Call ErrorForm. Activate 
End If 

EaI If 

End Sub 

*Privafei Sub ChecklnvalidYear (CurrentClause As cClauseReporter) 

If the associated reporter's year range does not correspond to the year in the date clause, then suggest that the user 

correct the discrepancy. 
*i» Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 (1990) 
pr- 
ill Citation. Year > 0 And Not (Citation. Court Is Nothing) Then 

4„i ' — Do not check the date if the reporter is not used by this court. 
|^ If CurrentClause .Reporter . Parent . Parent Is Citation . Court . Parent Then 

i~\ if Citation. Year < CurrentClause. Reporter. YearStart _ 

j.«:r Gr c ± tai -i on Year > CurrentClause . Reporter . YearEnd Then 

1 Only flag an error if the year is within court's year range. (Otherwise, the error will be handled elsewhere.) 
If Citation. Court. YearStart <= Citation. Year And Citation. Year <= Citation. Court . YearEnd Then 

Call ErrorForm. LoadError( "Rep InvalidYear 1", Citation. DateClause . DateStart , Citation. DateClause. Da teEnd, CurrentClause 

. Reporter . AbrvName ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm . Suggestion . Change (Citation . DateClause .DateStart , Citation . DateClause . DateEnd, " " ) 

Call ErrorForm. Activate 
End If 

End If 
End If 
End If 
End If 



End Sub 
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' -- Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public Const bcDBLQUOTE As String = " 

Public Const bcHIGHLIGHTCOLOR = vbRed 

Public Enum bcButtonPress 

None 

Cancel 

Change 

Ignore 

IgnoreRule 
End Enum 

Public Citation As cCitation 
Public ErrorForm As cErrorForm 
Public Suggestion As cDocument 
Public AbrvsTablelO As cAbbr aviations 
Public AbrvsTable6 As c Abbreviations 
Public AbrvsAll As c Abbreviations 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public Function ClausesAreAdjacent (ByRef FirstClause As IClause, ByRef SecondClause As IClause) As Boolean 
If FirstClause Is Nothing Or SecondClause Is Nothing Then Exit Function 

If ActiveDoc. Words. NextFullWord (FirstClause. ClauseEnd) >= SecondClause . ClauseStart Then 

ClausesAreAdjacent = True 
End If 

End Function 

Public Function AppropriateJurisdictionPosition(ByRef Citation As cCitation) As Long 

■ — Returns the word number of where the jurisdiction should be in the citation. 

AppropriateJurisdictionPosition = AppropriateDecisionClausePosition( Citation) 
If ActiveDoc .Words (AppropriateJurisdictionPosition) = " { " Then 

AppropriateJurisdictionPosition = AppropriateJurisdictionPosition + 1 
End If 

End Function 

Public Function AppropriateCourtPosition (ByRef Citation As cCitation) As Long 

' — Returns the word number of where the court should be in the citation. 

If Citation. JurisdictionClause Is Nothing Then 

AppropriateCourtPosition = AppropriateJurisdictionPos it ion (Citation) 

Else 

AppropriateCourtPosition = Citation. JurisdictionClause .JurEnd + 1 
End If 

End Function 

Public Function AppropriateDatePosition {ByRef Citation As cCitation) As Long 

I l-fci tat ion. JurisdictionClause Is Nothing _ 
Citation. CourtClause Is Nothing Then 

%| AppropriateDatePosition = AppropriateJurisdictionPosition (Citation} 

El'slelf Not (Citation. CourtClause Is Nothing) Then 

5 as 

f ?S If Not {Citation. DateClause Is Nothing) Then 

iM If ActiveDoc. Words. NextFullWord (Citation. CourtClause. CourtStart) = Citation, DateClause. DateStart Then 

jsji% AppropriateDatePosition = Citation. DateClause. DateStart 

h&i Else 

Jr* AppropriateDatePosition = Citation. CourtClause. CourtEnd + 1 

End If 

s Else 

jtet AppropriateDatePosition = Citation. CourtClause. CourtEnd + 1 
Wl End If 

= 

Ejlelf Not (Citation. JurisdictionClause Is Nothing) Then 
T** If Not (Citation. DateClause Is Nothing) Then 

f*s* If ActiveDoc. Words. NextFullWord(Citation. JurisdictionClause. JurEnd) = Citation. DateClause. DateStart Then 

AppropriateDatePosition = Citation ♦ DateClause .DateStart 

W Else 

| s l AppropriateDatePosition - Citation. JurisdictionClause. JurEnd + 1 

r " End If 

Else 

AppropriateDatePosition - Citation. JurisdictionClause .JurEnd + 1 
End If 

End If 

End Function 

Public Function AppropriateDecisionClausePosition (ByRef Citation As cCitation) As Long 
' — Returns the word number of where the decision clause should begin in the citation. 
Dim bcClause As IClause 



Set bcClause - LastClauseOf Type (Citation, "cClauseReporter " ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause . CI auseEnd + 1 

Else 

Set bcClause = LastClauseOf Type (Citation, "cClauseJurisdiction" ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause. ClauseStart 

Else 

Set bcClause = LastClauseOfType (Citation, "cClauseCourt " ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause . ClauseStart 

Else 

Set bcClause = LastClauseOfType (Citation, " cClauseDate" ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause . ClauseStart 

Else 

AppropriateDecisionClausePosition = Citation. citationEnd 
End If 
End If 
End If 
End If 
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If ActiveDoc. Words {AppropriateDecisionClausePosition) = " , " _ 

And Not {AppropriateDecisionClausePosition = Citation. CitationEnd) Then 

AppropriateDecisionClausePosition = AppropriateDecisionClausePosition + 1 
End If 

End Function 

Private Function LastClauseOf Type (Citation As cCitation, ClauseTypeNarcie As String} As IClause 

Dim bcClause As IClause 
Dim i As Long 



For i = Citation. AllClauses. Count To 1 Step -1 
Set bcClause = Citation. AllClauses (i) 
If TypeName (bcClause) = ClauseTypeName Then 
Set LastClauseOfType = bcClause 
Exit Function 
End If 
Next i 



End Function 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolAllClauses As cClauses 

Private mcolCaseNameClauses As Collection 
Private mcolReporterClauses As Collection 
Private mcolCourtClauses As Collection 
Private mcolJurisdictionClauses As Collection 

Private mbcCaseName Clause As cClauseCaseName 

Private mbcCourtClause As cClauseCourt 

Private mbcDateClause As cClauseDate 

Private mbc JurisdictionClause As cClauseJurisdiction 

Private mbcCourt As cCourt 

Private mbcJurisdiction As cJurisdiction 

Private mlngCitationStart As Long 
Private mlngCitationEnd As Long 
Private mlngCitationMaximumEnd As Long 

Private mlngDecisionClauseStart As Long 
Private mlngDecisionClauseEnd As Long 
Private mbolWordUsedf } As Boolean 

Private mlngScore As Long 

Public Property Get Court () As cCourt 

Set Court = mbcCourt 
End Property 

Public Property Get Jurisdiction () As ^Jurisdiction 

Set Jurisdiction = mbcJurisdiction 
End Property 

Public Property Get CitationStart ( ) As Long 

estimations tart = mlngCitationStart 
End Pi^perty 

Publiir ^Property Get CitationEnd( ) As Long 

CidationEnd = mlngCitationEnd 
End Property 

Publii<iFf Property Get AllClausesO As cClauses 

AllClauses = mcolAllClauses 
End P^perty 

Publi|f JProperty Get CaseNameClause ( } As cClauseCaseName 

Se£ CaseNameClause = mbcCaseNameClause 
End Ptf6perty 

Publxj^ Property Get CourtClause ( ) As cClauseCourt 

S[et CourtClause = mbcCourtClause 
End ifgperty 

Publfe^ Property Get DateClauseO As cClauseDate 

§&t DateClause = mbcDateClause 
End teiperty 

Publ^cJ Property Get JurisdictionClause ( } As cClauseJurisdiction 

get JurisdictionClause = mbcJurisdictionClause 
End i&bperty 

Public Property Get ReporterClauses ( ) As Collection 

Set ReporterC3auses = mcolReporterClauses 
End Property 

Public Property Get DecisionClauseStart ( ) As Long 
DecisionClauseStart = mlngDecisionClauseStart 
End Property 

Public Property Get DecisionClauseEnd( ) As Long 

DecisionClauseEnd = mlngDecisionClauseEnd 
End Property 

Public Property Get WordlsRecognized (WordNumber As Long) As Boolean 

WordlsRecognized = mbolWordUsed (WordNumber) 
End Property 

Public Property Get Text() As String 

Text = ActiveDoc .Words (mlngCitationStart , mlngCitationEnd) 
End Property 

Friend Property Get Score ( ) As Long 

Score = mlngScore 
End Property 

Public Function Yearf) As Long 

If Not (mbcDateClause Is Nothing) Then Year = mbcDateClause .Year 
End Function 



Public Sub Initialize (Clauses As Collection, CitationEnd) 
Dim bcClause As IClause 

' — identify the start and provisional (maximum) end of the citation. 
Set bcClause - Clauses (1) 
mlngCitationStart = bcClause . ClauseStart 
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If TypeOf bcClause Is cClauseJurisdiction Or TypeOf bcClause Is cClauseCourt Or TypeOf bcClause is cClauseDate Then 

If ActiveDoc. Words (mlngCi tat ionS tart - 1) = "(" Then mlngCitationStart = mlngCitationStart - 1 
End If 

ralngCitationEnd = CitationEnd 

Call LoadClauses (Clauses) 
Call MarkRecognizedWords 

Set rabcJurisdiction = Best Jurisdiction { ) 
Set mbcCourt - BestCourtO 

Call LocatePageAndVolumeNumbers 
Call LocateCitationEnd 

mlngScore = CalculateScore { ) 

' Call AssociateEditorReporters 

Call Associat eReportersWithCourt 

End Sub 

Private Sub LoadClauses (Clauses As Collection) 

1 Sort each clause into the respective collection. 
Dim bcClause As iClause 

Dim bcPriorReporterClause As cClauseReporter 
Dim bcEditor As cEditor 



Set mcolAllClauses = New cClauses 

Set mcolReporterClauses = New Collection 

Set mcolCaseNameClauses = New Collection 

Set mcolCourtClauses = New Collection 

Set mcolJurisdictionClauses = New Collection 

For Each bcClause In Clauses 

If TypeOf bcClause Is cClauseCaseName Then 
|3 Set mbcCaseNameClause = bcClause 

mcolAllClauses.Add bcClause 
%y mcolCaseNameClauses. Add bcClause 

Elself TypeOf bcClause Is cClauseCourt Then 
"~ mcolCourtClauses .Add bcClause 
\J mcolAllClauses.Add bcClause 
5 ™ Elself TypeOf bcClause Is cClauseDate Then 
Set mbcDateClause = bcClause 
mcolAllClauses.Add bcClause 
Elself TypeOf bcClause Is cClauseJurisdiction Then 
fll mcolJurisdictionClauses , Add bcClause 
*21 mcolAllClauses.Add bcClause 
iiz Elself TypeOf bcClause Is cClauseReporter Then 

~ Set bcEditor = IsEditor (bcClause) 

If Not {bcEditor Is Nothing) Then 
Jf* Set bcPriorReporterClause = mcolAHClauses (mcolAllClauses .Count) 

JO Set bcPriorReporterClause -EditorClause = bcEditor 

Else 

% ? ;F mcolReporterClauses .Add bcClause 

: mcolAllClauses.Add bcClause 

r*- End if 

f*j. Set bcEditor = Nothing 

M End If 
Next bcClause 
End Sub 

Private Function 1 sEditor (ReporterClause As cClauseReporter) As cEditor 

If the last clause before this clause was a reporter clause, then test whether this clause looks sufficiently 
like an editor that it should be added as an editor to the prior reporter clause. 

Dim bcEditor As cEditor 

Dim bcPriorReporterClause As cClauseReporter 



If mcolReporterClauses .Count > 0 Then 

If TypeOf mcolAllClauses {mcolAllClauses .Count) Is cClauseReporter Then 

Set bcPriorReporterClause = mcolAllClauses (mcolAllClauses . Count ) 
Set bcEditor = New cEditor 
With bcEditor 

Set , Reporter = ReporterClause .Reporter 

.AbrvStart = ReporterClause .AbrvStart 

.AbrvEnd = ReporterClause .AbrvEnd 

If .EditorScore (bcPriorReporterClause .AbrvEnd) >- 6 Then Set IsEditor = bcEditor 
End With 

End If 
End If 

End Function 

Private Function Best Jurisdict ion ( ) As cJurisdiction 

■ — Sets mbc Jurisdiction to the best jurisdiction indicated by the citation's jurisdiction clause, court clause and 
reporter clauses. 



Dim bcJurisdictionClause As cClauseJurisdiction 
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Dim bcReporterClause As cClauseReporter 
Dim bcCourtClause As cClauseCourt 
Dim bcJurisdiction As c Jurisdiction 
Dim strClauseText As String 
Dim IngBestScore As Long 



Call Jurisdictions . ScoreReset 

For Each bcJurisdictionClause In mcolJurisdictionClauses 

* — Award points for the jurisdiction identified by the jurisdiction clause(s) . 
Set bcJurisdiction = bcJurisdictionClause. Jurisdiction 

bcJurisdiction. Score = bcJurisdiction . Score + 50 * bcJurisdictionClause . Score 

1 — Award points if, for each reporter clause, the reporter is used by this jurisdiction. 
For Each bcReporterClause In mcolReporterClauses 

If ReporterUsedByJurisdiction (bcReporterClause, bcJurisdiction) Then 

bcJurisdiction. Score = bcJurisdiction . Score + 20 * bcReporterClause . Score 

End If 
Next bcReporterClause 

Next bcJurisdictionClause 

» — Award points for the jurisdiction implicit in any of the reporter clauses- Award three points if the jurisdiction is 
' implicit in the court {e.g., a federal court); otherwise, award two points. 
For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause . Reporter . Jurisdictionlmplicit = True Then 
Set bcJurisdiction = bcReporterClause. Reporter .Parent. Parent 
If Not (bcReporterClause. Reporter . ImplicitCourt Is Nothing) Then 

bcJurisdiction. Score - bcJurisdiction . Score + 30 * bcReporterClause . Score 

Else 

bcJurisdiction. Score = bcJurisdiction . Score + 20 * bcReporterClause . Score 
End If 
End If 
Next bcReporterClause 

For Each bcCourtClause In mcolCourtClauses 
abs. If bcCourtClause. Court. Jurisdictionlmplicit = True Then 

4ff ' — Award points for the jurisdiction implicit in the court clause (s). 
y** Set bcJurisdiction = bcCourtClause . Court . Parent 

bcJurisdiction. Score = bcJurisdiction. Score + 20 * bcCourtClause . Score 

"s Award points if, for each reporter clause/ the reporter is used by this jurisdiction. 

Iff For Each bcReporterClause In mcolReporterClauses 

T 7Z If ReporterUsedByJurisdicti on (bcReporterClause, bcJurisdiction) Then 

&=is bcJurisdiction. Score = bcJurisdiction . Score + 20 * bcReporterClause . Score 

2nd If 
Next bcReporterClause 

End If 
lftext bcCourtClause 

Is* Select the jurisdiction with the highest score. 
Set BestJurisdiction = Jurisdictions . ScoreBest 

f-% Search for the most appropriate jurisdiction clause, if there is one. 

First, if the jurisdiction was identified above, then look for the jurisdiction clause that best matches this jurisdiction. 
Not (mbcJurisdiction Is Nothing) Then 
%n£ For Each bcJurisdictionClause In mcolJurisdictionClauses 
'^i If bcJurisdictionClause , Jurisdiction Is mbcJurisdiction Then 

' If mbcJurisdictionClause Is Nothing Then 

Set mbcJurisdictionClause - bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
Elself bcJurisdictionClause . Score > IngBestScore Then 
Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause. Score 
End If 
End If 

Next bcJurisdictionClause 
End If 

'-- If no jurisdiction clause was identified in the first pass, just look for the best jurisdiction clause period (regardless of 
' matching court . ) 

If mbcJurisdictionClause Is Nothing Then 

For Each bcJurisdictionClause In mcolJurisdictionClauses 
If mbcJurisdictionClause Is Nothing Then 

Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
Elself bcJurisdictionClause. Score > IngBestScore Then 
Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause. Score 
End If 

Next bcJurisdictionClause 
End If 

End Function 

Private Function ReporterUsedByJurisdiction(ReporterClause As cClauseReporter, Jurisdiction As cJurisdiction) As Boolean 
Dim strReporterText As String 

StrReporterText = ActiveDoc. Words (Reporter Clause. AbrvS tart, ReporterClause.AbrvEnd) 

If Not (Jurisdiction. AllReporters . Item ( strReporterText , True, True) Is Nothing) Then ReporterUsedByJurisdiction = True 
End Function 



Private Function BestCourt ( ) As cCourt 
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' — Returns the best court indicated by the citation's clauses. 

Dim IngYear As Long 

Dim bcCourtClause As cClauseCourt 

Dim bcReporterClause As cClauseReporter 

Dim strClauseText As String 

Dim bcFunctions As New cPublicFunctions 

Dim bcCourt As cCourt 

Dim IngBestScore As Long 



If Not {mbc Juris diet ion Is Nothing) Then 



*-- If the jurisdiction was identified, then look for the clause that best identifies the court. 



If Not mbcDateClause Is Nothing Then IngYear = mbcDateClause , Year 
Call mbcJurisdiction. Courts . ScoreReset 



' — Award points for each court identified by a court clause that is consistent with the jurisdiction. Also, fix the 
* court clause's associated court so that in "Minn. Ct. App." , e.g., the associated court refers to Minnesota's 
' court of appeals, not the Alabama court of appeals. 



For Each bcCourtClause In mcolCourtClauses 
StrClauseText = bcCourtClause .Text 

Set bcCourt = mbc Jurisdiction. Courts. Item {strClauseText, True, True, IngYear) 
If Not (bcCourt Is Nothing) Then 

Set bcCourtClause. Court = bcCourt 

bcCourt .Score = bcCourt . Score +30 
End If 
Next bcCourtClause 

' Award points for each court that is implicit within the reporter clause. 



For Each bcReporterClause In mcolReporterClauses 

Set bcCourt = bcReporterClause .Reporter . implicitCourt 
If Not (bcCourt Is Nothing) Then 

If bcCourt . Parent Is mbcJurisdiction Then 
bcCourt . Score - bcCourt . Score + 1 
^. End If 

4 J End If 

Next bcReporterClause 

\l Set BestCourt = mbcJurisdiction . Courts . ScoreBest 

. s= " « — if no potential courts were found above, then look for a court within the jurisdiction that does not need an explicit 
Ul ' court designation. (I.e., a federal or state supreme court.) 

If BestCourt Is Nothing And Not (mbcJurisdiction Is Nothing) Then 

"%l Set bcCourt = mbcJurisdiction. Courts. Item( "" , False, False, IngYear) 
If Not (bcCourt Is Nothing) Then 

~ If mbcJurisdiction.FullName = "Federal" Then 

i*\ 1 — if the jurisdiction is federal and there is no court clause, then set the court to the U.S. Supreme Court 

' only if there are no reporters or at least one of the reporters is valid for the Supreme Court. 

flj ' (Do not accept, e.g., "123 F.2d 456 {1980)" as the Supreme Court.) 

jiai If mcolReporterClauses . Count - 0 Then 

W Set BestCourt = bcCourt 

Elself bcFunctions. ReportersCompatibleWithCourt (bcCourt, mcolReporterClauses) >= 1 Then 
Set BestCourt = bcCourt 

fl End If 

r* Else 

Set BestCourt = bcCourt 
End If 



End If 
End If 



End If 



' — Search for the most appropriate court clause, if there is one. 

'-- First, if the court was identified above, then look for the court clause that best matches this court. 
If Not (mbcCourt Is Nothing) Then 

For Each bcCourtClause In mcolCourtClauses 
If bcCourtClause .Court Is mbcCourt Then 
If mbcCourtClause Is Nothing Then 

Set mbcCourtClause - bcCourtClause 
IngBestScore = bcCourtClause . Score 
Elself bcCourtClause . Score > IngBestScore Then 
Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause . Score 
End If 
End If 
Next bcCourtClause 
End If 



' — If no court clause was identified in the first pass, just look for the best court clause period (regardless of a 

matching court . ) 
If mbcCourtClause Is Nothing Then 

For Each bcCourtClause In mcolCourtClauses 
If mbcCourtClause Is Nothing Then 

Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause . Score 
Elself bcCourtClause. Score > IngBestScore Then 
Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause. Score 
End If 
Next bcCourtClause 
End If 
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End Function 

Private Sub LocatePageAndVolumeNumbers () 

'-- For each reporter clause, identify the volume number, first page number and pinpoint page numbers. 

Note: this first identifies the volume number, then the first page number, and then the volume number, in that order, 
so that if one reporter clause "wants" that number as a page number, but the other wants it as a volume number, the 
volume number will prevail. 

Dim bcReporterClause As cClauseReporter 
Dim IngWord As Long 
Dim strWord As String 
Dim strWordTrim As String 
Dim i As Long 



1 — Identify the volume numbers. 

For Each bcReporterClause In mcolReporterClauses 
IngWord = bcReporterClause , ClauseStart - 1 
If Not mbolWordUsed ( IngWord) Then 

If ActiveDoc .Words . IsNumber ( IngWord, True) Then 

bcReporterClause. VolumeNumberLocation = IngWord 
mbolWordUsed ( IngWord) - True 
End If 
End If 
Next bcReporterClause 



' — Identify the first page locations. 
For Each bcReporterClause In mcolReporterClauses 
IngWord = bcReporterClause . ClauseEnd + 1 
If ActiveDoc. Words. IsNumber (IngWord, True) Then 
bcReporterClause. FirstPageLocation = IngWord 
mbolWordUsed (IngWord) = True 
Elself ActiveDoc. Words (IngWord) = "." Then 
If Not mbolWordUsed (IngWord + 1) Then 

If ActiveDoc. Words. IsNumber (IngWord + 1, True) Then 
bcReporterClause. FirstPageLocation = IngWord + 1 
4 mbolWordUsed { IngWord + 1) = True 

O End If 

snd if 

ftl End If 
NepSt bcReporterClause 

'S.-J Identify the pinpoint page numbers 
F.qr Each bcReporterClause In mcolReporterClauses 
||I With bcReporterClause 

For i = bcReporterClause .ClauseEnd + 1 To mlngCitationEnd 

If mbolWordUsed(i) = True Then Exit For 

''■ strWordTrim = ActiveDoc. Words. WordsTrim { i ) 

H strWord = ActiveDoc .Words { i) 

^ If strWord <> " , " Then 



If ActiveDoc. Words. IsNumber (i, True) Then 

If .PinStart = 0 Then .PinStart = i 

bcReporterClause . PinEnd = i 
Elself ActiveDoc. Words. IsNumber (i + 1, True) Then 

If strWordTrim - "page" _ 

Or strWordTrim = "pages" _ 

Or strWordTrim = "note" _ 

Or strWordTrim = "notes" _ 

Or strWordTrim = "footnote" _ 

Or strWordTrim = "footnotes" _ 

Or strWordTrim = "to" _ 

Or strWordTrim = "and" _ 

Or strWordTrim = "at" _ 

Or strWord = "*" _ 

Or strWord = "**" _ 

Or strWord = "***" _ 

Or strWord = "****" _ 

Or strWord = "-" _ 

Or strWordTrim = "p" _ 

Or strWordTrim = "pg" _ 

Or strWordTrim = "pp" _ 

Or strWordTrim = "n" _ 

Or strWordTrim = "nn" _ 

Or strWordTrim = "ns" _ 

Or strWordTrim = " fn" _ 

Or strWordTrim = "fns" Then 

If .PinStart = 0 Then .PinStart = i 
. PinEnd = i + 1 

End If 

Elself ActiveDoc .Words ( i + 1) = "." And ActiveDoc .Words . IsNumber (i + 2, True) Then 

If strWordTrim = "p" _ 

Or strWordTrim = "pg" _ 

Or strWordTrim = "pp" _ 

Or strWordTrim = "n" _ 

Or strWordTrim = "nn" _ 

Or strWordTrim = "ns" __ 

Or strWordTrim - "fn" _ 

Or strWordTrim = "fns" Then 

If .PinStart = 0 Then .PinStart = i 
.PinEnd = i + 2 

End If 
End If 

If .PinStart = 0 And strWordTrim <> "" Then Exit For 
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End If 
Next i 

If .PinEnd > 0 Then 

For i = . PinStart To .PinEnd 
mbolWordUsed{ i) = True 

Next i 
End If 

End With 
Next bcReporterClause 

End Sub 

Private Sub LocateCitationEndt ) 

Dim bcLastClause As IClause 

Dim i As Long 

Dim strWord As String 

Dim InglnsideParenth As Long 

Dim IngBestParenthEnd As Long 



Set bcLastClause = mcolAHClauses {mcolAHClauses . Count) 

'-- First, set the citation end to any semicolon that follows the last clause. 
For i = bcLastClause. ClauseEnd + 1 To mlngCitationEnd 
If Ac tiveDoc .Words (i) = ";" Then 
mlngCitationEnd = i - 1 
Exit For 
End If 
Next i 

* — Next, determine whether there is a mismatched parentheses count — that is, whether the citation should have a close 
' parenthesis after the last clause. Start by counting the parentheses to the left of the last clause 
For i = bcLastClause . ClauseStart - 1 To mlngCitationStart Step -1 
strWord = Ac tiveDoc .Words { i) 
A If strWord = "(" Then 

|™J InglnsideParenth = InglnsideParenth + 1 
^ Elself strword = ")" Then 

%z InglnsideParenth = InglnsideParenth - 1 
\'i End If 
NeMt i 

SI 

If the parentheses are imballanced, then look for the correct number of closed parentheses after the last clause. 
M. I InglnsideParenth > 0 Then 

^ For i = bcLastClause. ClauseEnd + 1 To mlngCitationEnd 

strWord = Ac tiveDoc. Words (i) 
yfj If strWord = " { " Then 

]2l InglnsideParenth = InglnsideParenth + 1 

4p Elself strWord = ")" Then 

InglnsideParenth = InglnsideParenth - 1 
h IngBestParenthEnd = i 

r B l If InglnsideParenth = 0 Then Exit For 

'Zl End If 
f|j Next i 

If IngBestParenthEnd > 0 Then mlngCitationEnd = IngBestParenthEnd 

■&$k if 

End Suh 

Private Function CalculateScore () As Long 

Dim IngScore As Long 

Dim IngAverageClause Score As Long 

Dim bcClause As IClause 

Dim bcJurisdictionClause As cClauseJurisdiction 

Dim bcCourtClause As cClauseCourt 

Dim bcReporterClause As cClauseReporter 

Dim bcClauselDingJur As IClause 

Dim bcClauselDingCourt As IClause 

Dim i As Long 



■ — Award up to 100 points for the case name clause. 
If Not (mbcCaseNameClause Is Nothing) Then 

Set bcClause = mbcCaseNameClause 

IngScore - 100 * bcClause . Score 
End If 

'-- Award up to 150 points based on the average reporter clause score. 
If mcolReporterClauses .Count > 0 Then 

For Each bcClause In mcolReporterClauses 

IngAverageClauseScore = IngAverageClauseScore + 150 * bcClause. Score 

Next bcClause 

IngAverageClauseScore ~ IngAverageClauseScore / mcolReporterClauses . Count 
IngScore - IngScore + IngAverageClauseScore 
End If 

' — Award up to 100 points for the identification of the jurisdiction. 
If Not (mbc Jurisdiction Is Nothing) Then 

For Each bcJurisdictionClause In mcolJurisdictionClauses 

If bcJurisdictionClause. Jurisdiction Is mbcJurisdiction Then 
Set bcClauselDingJur = bcJurisdictionClause 
Exit For 
End If 

Next bcJurisdictionClause 

If bcClauselDingJur Is Nothing Then 

For Each bcCourtClause In mcolCourtClauses 

If bcCourtClause. Court. Implicit Jurisdiction Is mbcJurisdiction Then 
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Set bcClauselDingJur = bcCourtClause 
Exit For 
End If 
Next bcCourtClause 
End If 

If bcClauselDingJur Is Nothing Then 

For Each bcReporterClause In racolReporterClauses 

If bcReporterClause. Reporter . Implicit Jurisdiction Is mbcJurisdiction Then 
Set bcClauselDingJur = bcReporterClause 
Exit For 
End If 
Next bcReporterClause 
End If 

If Not {bcClauselDingJur Is Nothing) Then IngScore - IngScore + 100 * bcClauselDingJur . Score 
End If 

'-- Award up to 100 points for the clause that identifies the court. If the court was identified, award points based on the 
' the clause that IDd it. Otherwise, award points for the identified court clause, if any. 

If Not (mbcCourt Is Nothing) Then 

For Each bcCourtClause In mcolCourtClauses 
If bcCourtClause .Court Is mbcCourt Then 

Set bcClauselDingCourt = bcCourtClause 
Exit For 
End If 
Next bcCourtClause 

If bcClauselDingCourt Is Nothing Then 

For Each bcReporterClause In racolReporterClauses 

If bcReporterClause. Reporter . ImplicitCourt Is mbcCourt Then 
Set bcClauselDingCourt = bcReporterClause 
Exit For 
End If 
Next bcReporterClause 
End If 

If bcClauselDingCourt Is Nothing Then 
If mbcCourt . AbrvNameTrim - "" Then 

Set bcClauselDingCourt = bcClauselDingJur 
End If 
A End If 
Ef8 if 

Ij&ot (bcClauselDingCourt Is Nothing) Then 

IngScore = IngScore + 50 * bcClauselDingCourt . Score 
SjLself Not {mbcCourtClause Is Nothing) Then 
"s Set bcClauselDingCourt = mbcCourtClause 
\i IngScore = IngScore + 100 * bcClauselDingCourt . Score 
Ea<| If 

W- Award up to 100 points for the identification of the date. 
fpNot (mbcDateClause Is Nothing) Then 
•fifl Set bcClause = mbcDateClause 

IngScore = IngScore + 100 * bcClause . Score 
£p If 

S — Subtract 50 points for each case name clause, court clause or jurisdiction clause greater than one. 
f#=jmcolCaseNameClause£. Count > 1 Then IngScore = IngScore - 50 * (mcolCaseNameClauses. Count - 1) 
£f :? mcolCourtClauses . Count > 1 Then IngScore = IngScore - 50 * {mcolCourtClauses . Count - 1) 
?|jmcolJurisdictionClauses. Count > 1 Then IngScore = IngScore - 50 * {mcolJurisdictionClauses .Count - 1) 

Subtract 50 points for each instance where the reporter clauses are not contiguous. 
If mcolReporterClauses. Count > 1 Then 

f~~ > — Step through every reporter clause except the last one, and determine if its next clause is a reporter clause. 
fzz For i = 1 To mcolReporterClauses . Count - 1 

Set bcClause = racolReporterClauses (i) 
lapis If Not (TypeOf bcClause .NextClause Is cClauseReporter) Then IngScore = IngScore - 50 

Next i 
End If 

' — Subtract 10 points for each unrecognized word, and subtract 100 points if a semicolon is encountered. 
For i = mlngCitationStart To mlngCitationEnd 
If Not mbolWordUsed(i) Then 

If Not {ActiveDoc. Words. WordsTrim(i) = "") Then IngScore = IngScore ~ 10 
If ActiveDoc .Words (i) = " ; " Then IngScore = IngScore - 100 
End If 
Next i 

CalculateScore = IngScore 
End Function 

Friend Sub FinalizeCitation { ) 



Call MarkRecognizedWords 

If Not {robcCourt Is Nothing) Then Call AssociateReportersWithCourt 
End Sub 

Private Sub AssociateReportersWithCourt { } 

Dim bcReporterClause As cClauseReporter 

Dim bcReporter As cReporter 

Dim. bcMatchingReporter As cReporter 



For Each bcReporterClause In mcolReporterClauses 

■ — If this particular reporter is not used by this court group, but there is a reporter with the same abbreviation 
' used by this court group, then set the reporter clause's associated reporter to the correct reporter. 

Set bcReporter = bcReporterClause .Reporter 

If Not {bcReporter . Parent Is mbcCourt . Parent) Then 
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if Act iveDoc. Words. WordsTrim (bcReporterClause .AbrvStart , bcReporterClause .AbrvEnd) = bcReporter . AbrvNameTrim Then 
Set bcMatchingReporter = Court . Reporters . Item (bcReporterClause . AbrvText , True, False} 

If bcMatchingReporter Is Nothing Then Set bcMatchingReporter - mbcCourt . Parent . AllReporters (bcReporterClause .AbrvText , True 

, False) 

Else 

Set bcMatchingReporter = Court. Reporters. I tern {bcReporterClause. AbrvText, True, True} 

If bcMatchingReporter Is Nothing Then Set bcMatchingReporter = Court . Parent .AllReporters . ltem{bcReporterClause. AbrvText, Tr 

ue, True) 

End If 

If Not {bcMatchingReporter Is Nothing) Then Set bcReporterClause .Reporter = bcMatchingReporter 

End If 
Next bcReporterClause 

End Sub 

'Private Sub AssociateEditorReporters { ) 

Dim bcReporterClause As cClauseReporter 

Dim bcNextReporterClause As cClauseReporter 
1 Dim bcEditorMainReporter As cReporter 

Dim bcMainReporterClause As cClauseReporter 
• Dim i As Long 



' ' — If an editor clause wasn't attached above, then search for any associated main reporter clause. 

For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause . EditorClause Is Nothing Then 
1 If bcReporterClause . Reporter. IsEditorReporter Then 

' Set bcEditorMainReporter = bcReporterClause. Reporter. MainReporter 

' For Each bcMainReporterClause In mcolReporterClauses 

If bcMainReporterClause. Reporter Is bcEditorMainReporter Then 
1 Set bcMainReporterClause. EditorClause = bcReporterClause 

^aa Exit For 

Is J End If 

jifs Next bcMainReporterClause 

%| End If 

^'Z End If 

Sftxt bcReporterClause 
' End |gyb 

Private Sub MarkRecognizedWords ( } 

pj-m bcClause As I Clause 
Dim i As Long 

t||)im mbolWordUsed (mlngCitationStart - 5 To mlngCitationEnd + 5) 
fof Each bcClause In mcolAHClauses 

M For i - bcClause . ClauseStart To bcClause . ClauseEnd 
|_l mbolWordUsed (i) = True 

^ Next i 
^||ct bcClause 

End fefc 

Friend Sub PrintClauses (Number As Long, PrintType As Boolean, PrintScore As Boolean) 

Dim bcClause As iClause 
Dim IngAddFrom As Long 
Dim strCitation As String 
Dim strlnfo As String 
Dim strMisc As String 



If PrintType = True Or PrintScore = True Then 
IngAddFrom = mlngCitationStart 
For Each bcClause In mcolAllClauses 
strlnfo = " ['* 

If PrintType - True Then strlnfo = strlnfo & Right $ (TypeName (bcClause) , Len (TypeName (bcClause) ) - 7) 
If PrintScore = True Then 

If PrintType = True Then strlnfo = strlnfo & " : " 

strlnfo = strlnfo & Format (bcClause . Score, "0.00") 
End If 

strlnfo = strlnfo & "] " 

strCitation = strCitation & Act iveDoc .Words ( IngAddFrom, bcClause. ClauseEnd) & strlnfo 
IngAddFrom = bcClause. ClauseEnd + 1 
Next bcClause 

strCitation = strCitation & ActiveDoc. Words (IngAddFrom, mlngCitationEnd) 

Else 

strCitation = ActiveDoc .Words (mlngCitationStart , mlngCitationEnd) 
End If 

If Number > 0 Then 

Debug, Print "#" & Number & ": " & strCitation 

Else 

Debug. Print strCitation 
End If 

If mbcJurisdiction Is Nothing Then 
strMisc = "Jurisdiction: none; 

Else 
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strMisc = "Jurisdiction: " & mbcJurisdiction.FullName & 
End If 

If mbc Court Is Nothing Then 

strMisc = strMisc & "Court: none; 

Else 

strMisc = strMisc & "Court: " & mbcCourt . FullName & 
End If 

strMisc = strMisc & "Score: " & mlngScore 
Debug -Print strMisc 
Debug. Print 



End Sub 
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■ — Copyright 2001 by Robert L , Jacobson. 
Option Explicit 

Private mlngNodesCount As Long 
Private mbcBestCitation As cCitation 
Private mbol Print Clauses As Boolean 
Private mlngCi tat ionsBui It Single As Long 
Private mlngCitationsBuiltTotal As Long 
Private rnbcClauseLocator As cClauseLocator 

Private Const MINIMUM_VALID_CITATION As Long =150 
Private Const ACCEPTABLE„DIFFERENCE As Long =500 
Private Const MINlMUM_CONTINUE As Long = 100 
Private Const MAX IMUM_D I STANCE As Long =30 
Private Const PERFECT_SCORE As Long = 550 

Public Function NextCitationFromWord {Word As Long) As cCitation 

Dim colClauses As Collection 
Dim bcClause As IClause 
Dim i As Long 
Dim j As Long 



mbol Print Clauses = True 

Set mbcBestCitation = Nothing 
mlngCitationsBuiltSingle = 0 
mlngNodes Count = 0 

For i = Word To ActiveDoc .Words . Count 

For Each bcClause In rnbcClauseLocator .ClausesStartingAtWord(i) 

Set colClauses = New Collection 

colClauses .Add bcClause 

Call TraverseTree {colClauses , 0) 
Next bcClause 

If Not (mbcBestCitation Is Nothing) Then Exit For 
Nfg£ i 

I£~<Not (mbcBestCitation Is Nothing) Then 
%j If mbcBestCitation. Score < PERFECT_SCORE Then 

^■-1 For j = mbcBestCitation. CitationStart + 1 To mbcBestCitation . CitationEnd 
If? For Each bcClause In rnbcClauseLocator . ClausesStartingAtWord (j ) 

Set colClauses = New Collection 
k-L colClauses .Add bcClause 

^ Call TraverseTree {colClauses, 0) 

m Next bcClause 

?p Next j 

End If 

JIl Set NextCitationFromWord = mbcBestCitation 

Call mbcBestCitation. PrintClauses (0, True, True) 

f?>% Call mbcBestCitation. FinalizeCitation 

fb& If 

End Suiicti on 

PrivitB Sub TraverseTree (ParentClauses As Collection, ParentScore As Long) 

Dim bcCitation As cCitation 
Dim bcLastClause As IClause 
Dim bcClause As IClause 
Dim colClauses As Collection 



Set bcLastClause = ParentClauses (ParentClauses . Count) 
For Each bcClause In Children (bcLastClause. ClauseEnd) 

If Not (mbcBestCitation Is Nothing) Then If mbcBestCitation. Score = PERFECT^SCORE Then Exit Sub 

Set colClauses = CloneCollect ion (ParentClauses) 
colClauses .Add bcClause 

Set bcCitation - BuildCitation (colClauses) 

If mbolPrintClauses Then Call bcCitation. PrintClauses (mlngNodesCount , True, True) 

If bcCitation. Score > MINIMUM_CONTINUE And bcCitation. Score > (ParentScore - 100) Then 

If mbcBestCitation Is Nothing Then 

If bcCitation. Score > MINIMUM_VALID_CITATI0N Then Set mbcBestCitation = bcCitation 
Elself bcCitation. Score > mbcBestCitation . Score Then 

Set mbcBestCitation - bcCitation 
End If 

Call TraverseTree (colClauses , bcCitation . Score) 
End If 
Next bcClause 
End Sub 

Private Function BuildCitation (Clauses As Collection) As cCitation 

Dim colClauses As Collection 
Dim bcLastClause As IClause 
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Dim IngNextClauseStart As Long 



mlngNodesCount = mlngNodesCount + 1 

mlngCitationsBuiltSingle = mlngCitationsBuiltSingle + 1 
mlngCitationsBuiltTotal ~ mlngCitationsBuiltTotal + 1 

• — Create a citation with these clauses and evaluate the result. 
Set bcLastClause - Clauses (Clauses . Count) 

For IngNextClauseStart = bcLastClause .ClauseEnd + 1 To Ac tiveDoc .Words . Count 

If mbcClauseLocator .ClausesStartingAtWord( IngNextClauseStart) . Count > 0 Then Exit For 
Next IngNextClauseStart 

Set BuildCitation = New cCitation 

Call BuildCitation. Initialize (Clauses, IngNextClauseStart - 1) 
End Function 

Private Function Children (Afterword As Long) As Collection 

'-- Search from the end of the parent clause to the end of the search range. Return the collection of clauses at the 
next word that is the start of clauses. 

Dim i As Long 

Dim j As Long 

Dim bcClause As IClause 

Dim colClausesAtWord As Collection 

Dim IngShortestClauseEnd As Long 

Dim IngLastWord As Long 



IngLastWord = Ac tiveDoc .Words . Count 

If Afterword + MAXIMUM_DI STANCE < IngLastWord Then IngLastWord = AfterWord + MAXIMUK_DISTANCE 

For i = AfterWord + 1 To IngLastWord 

Set colClausesAtWord = mbcClauseLocator .ClausesStartingAtWord(i) 
If colClausesAtWord. Count > 0 Then 

' — Add the clauses at the current word to the children collection 
EJ Set Children = CloneCollection(mbcClauseLocator .ClausesStartingAtWord(i) ) 

!i.J ' — Determine the end of the shortest clause. 

\.. | For Each bcClause In Children 

t "'I If IngShortestClauseEnd - 0 Then 

"\f IngShortestClauseEnd = bcClause . ClauseEnd 

. ~Z El self bcClause. ClauseEnd < IngShortestClauseEnd Then 

yf IngShortestClauseEnd = bcClause. ClauseEnd 

End If 
f** Next bcClause 

' — Add the clauses that start after the current word, but before the end of the shortest clause 

For j = i + 1 To IngShortestClauseEnd 

Set colClausesAtWord = mbcClauseLocator . ClausesStartingAtWord( j ) 
B For Each bcClause In colClausesAtWord 

f s | Children. Add bcClause 

*^ Next bcClause 

ill Next j 

| R i Exit Function 

End If 
feet i 

ft\ Children Is Nothing Then Set Children = New Collection 
End Enaction 

Private Function CloneCollection (Source As Collection) As Collection 
Dim bcClause As IClause 



Set CloneCollection = New Collection 
For Each bcClause In Source 

CloneCollection. Add bcClause .Clone 
Next bcClause 

End Function 

Private Sub Class_Initialize ( ) 

Set mbcClauseLocator = New cClauseLocator 
Call mbcClauseLocator . Initialize 



End Sub 
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' — Copyright 2001 by Robert L. Jacobson. 

Option Explicit 
Implements IClause 

Private mlngSignalStart As Long 
Private mlngSignalEnd As Long 
Private mlngClauseStart As Long 
Private mlngClauseEnd As Long 
Private mlngVersusPosition As Long 
Private mudtPartyName 0 As udtPartyName 
Private mlngPartiesCount As Long 

Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 

Public Type udtPartyName 

Start As Long 

End As Long 
End Type 



Public Property Let ClauseStart (Source As Long) 
mlngClauseStart = Source 

If mlngClauseStart > 0 And mlngClauseEnd > 0 Then Call Parse 
End Property 

Public Property Get ClauseStart ( ) As Long 

ClauseStart = mlngClauseStart 
End Property 

Public Property Let ClauseEnd (Source As Long) 
mlngClauseEnd = Source 

If mlngClauseStart > 0 And mlngClauseEnd > 0 Then Call Parse 
End Property 

Public Property Get ClauseEnd {} As Long 

ClauseEnd = mlngClauseEnd 
End Pr&perty 

Public^Property Get SignalStart { ) As Long 

Stk|nal Start = mlngSignalStart 
End F*;<|perty 

Publi^ J Property Get SignalEndO As Long 

SignalEnd = mlngSignalEnd 
End Property 

Publi^c" Property Get VersusPosition{ ) As Long 

\|ef susPosition = mlngVersusPosition 
End Property 

Public Property Get Textf) As String 

•fext - Ac tiveDoc. Words {mlngClauseStart , mlngClauseEnd) 
End fr*$perty 

Pub 1 ||| Property Get PartyName { PartyNumber As Long) As udtPartyName 

B&rtyName = mudtPartyName (Part yNumber) 
End ir|jperty 

Publ tW Function PartyNameAtWord (WordNumber As Long) As udtPartyName 
^mlngVersusPosition = 0 Or WordNumber < mlngVersusPosition Then 
PartyNameAtWord = mudtPartyName (1) 

PartyNameAtWord = mudtPartyName (2) 
End If 
End Function 

Public Property Get PartiesCount { ) As Long 

PartiesCount = mlngPartiesCount 
End Property 



Private Property Get IClause^ClauseEnd { } As Long 

IClause_ClauseEnd = mlngClauseEnd 
End Property 

Private Property Get IClause__ClauseStart 0 As Long 

IClause_ClauseStart = mlngClauseStart 
End Property 

Private Function lClause_Clone { ) As IClause 

Dim bcClone As cClauseCaseName 

Set bcClone = New cClauseCaseName 
With bcClone 

.ClauseStart = mlngClauseStart 

.ClauseEnd = mlngClauseEnd 
End With 

Set IClause_Clone = bcClone 
End Function 

Private Property Set IClause_NextClause {RHS As IClause) 

Set mbcNextClause = RHS 
End. Property 

Private Property Get IClause_JJextClause { ) As IClause 

Set IClause_Next Clause = mbcNextClause 
End Property 
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Private Property Set IClause_PriorClause {RHS As IClause} 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause^PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

IClause__Text = TextO 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim strNextWord As String 

' — The total score is based solely on the context score. 

• Award up to 0.5 points for the expected preceeding clause and text. 
If mbcPriorClause Is Nothing Then 

sngScoreContext - 0.5 
Elself Ac tiveDoc. Words {mudtPartyName { 1) . Start - 1) = "," Then 

sngScoreContext = 0.25 
End If 

1 Award up to 0.5 points for the expected subsequent clause and text. 

If Not (mbcNextClause Is Nothing) Then If TypeOf mbcNext Clause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
strNextWord = ActiveDoc .Words (mlngClauseEnd + 1) 
Select Case strNextWord 
Case " , " 

sngScoreContext = sngScoreContext + 0.25 
Case " { " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

IClause_Score = sngScoreContext 
End Fiction 

Frien^^Function Score 0 As Single 

S%are = IClause_Score ( ) 
End Function 

Privatse Sub Parse () 

z 

i As Long 
4dj& IngSearchTo As Long 

strPhraseTrim As String 
I%m strWordTrim As String 
ftfm IngFirstPartyNameStart As Long 

ffj mlngClauseStart + 5 > mlngClauseEnd Then 

= IngSearchTo = mlngClauseEnd 
iLse 

r 5 ^ IngSearchTo = mlngClauseStart + 10 

iaa if 

|px i = IngSearchTo To mlngClauseStart Step -1 

s . '-- Query: Will WordsTrim return a word when the trailing word(s) is a punctuation mark? Check. 
strPhraseTrim = ActiveDoc .Words .WordsTrim (mlngClauseStart , i) 



If 


strPhraseTrim 




"accord" __ 


Or 


strPhraseTrim 




"accordeg" 


Or 


strPhraseTrim 




"see" _ 


Or 


strPhraseTrim 




"seeeg" _ 


Or 


strPhraseTrim 




"seealso" _ 


Or 


strPhraseTrim 




"seealsoeg" _ 


Or 


strPhraseTrim 




"cf" _ 


Or 


strPhraseTrim 




"cfeg" _ 


Or 


strPhraseTrim 




" compare " _ 


Or 


strPhraseTrim 




"compareeg" _ 


Or 


strPhraseTrim 




"but see" _ 


Or 


strPhraseTrim 




"but seeeg" __ 


Or 


strPhraseTrim 




"butcf" _ 


Or 


strPhraseTrim 




"butcfeg" _ 


Or 


strPhraseTrim 




"seegenerally" _ 


Or 


strPhraseTrim 




"seegenerallyeg" _ 


Or 


strPhraseTrim 




"contra" _ 


Or 


strPhraseTrim 




" contraeg " Then 



mlngSignalStart = mlngClauseStart 
If Ac tiveDoc. Words (i + 1) = " . " Then 
mlngSignalEnd = i + 1 

Else 

mlngSignalEnd = i 
End If 
Exit For 

End If 
Next i 

' — Look for the first designation of "versus." 
For i = mlngClauseStart To mlngClauseEnd 

strWordTrim = ActiveDoc .Words . WordsTrim ( i) 

If strWordTrim = "v" Or strWordTrim = "vs" Or strWordTrim = "versus" Then 
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' If one is found, then mark it, and use it as the dividing point to mark the start and end of the 

two parties' names. 
mlngVer susPosition = i 
mlngPartiesCount - 2 
ReDim mudtPartyName ( 1 To 2) 
Wi th mudtPartyName ( 1 ) 

If mlngSignalEnd > 0 Then 

.Start = Ac tiveDoc. Words. NextFullWord (mlngSignalEnd) 

Else 

.Start = mlngClauseStart 
End If 
.End = i - 1 
End With 

With mudtPartyName (2) 

.Start = Ac tiveDoc. Words .NextFullWord( i) 

.End = mlngClauseEnd 
End With 
Exit For 

End If 
Next i 

'-- If a versus wasn't found, then assume that there's only one party. 
If mlngVersus Position = 0 Then 
mlngPartiesCount = 1 

ReDim mudtPartyName (1 To 1) As udtPartyName 
With mudtPartyName { 1 ) 

If mlngSignalEnd > 0 Then 

.Start = ActiveDoc. Words. NextFullWord (mlngSignalEnd) 

Else 

.Start = mlngClauseStart 
End If 

.End = mlngClauseEnd 
End With 
End If 

End Sub 



Priv&tie Sub Class_Initialize { ) 

tfeusesCount = ClausesCount + 1 

lidbug. Print "Creating clause. Total: " & ClausesCount 
End Bulb 

PrivMtie Sub Class_Terminate ( ) 

JlausesCount = ClausesCount - 1 

||#bug. Print "Terminating clause. Total: " & ClausesCount 
End -i|ttb 



cClauseCourt - 1 



' — Copyright 2001 by Robert L. Jacobson. 

Option Explicit 
Implements IClause 

Public Court As cCourt 

Private mlngCourtStart As Long 
Private mlngCourtEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 
Private mbolExactMatch As Boolean 

Friend Property Let ExactMatch( Source As Boolean) 

mbolExactMatch = Source 
End Property 

Public Property Get CourtStartO As Long 

CourtStart = mlngCourtStart 
End Property 

Friend Property Let CourtStart {Source As Long) 

mlngCourtStart = Source 
End Property 

Public Property Get CourtEnd {) As Long 

CourtEnd = ralngCourtEnd 
End Property 

Friend Property Let CourtEnd (Source As Long} 

mlngCourtEnd - Source 
End Property 

Public Property Get TextO As String 

Text = Ac tiveDoc. "Words (mlngCourtStart, mlngCourtEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Safe. PriorClause = mbcPriorClause 
End P&operty 

Public^ ^Property Get NextClause ( ) As IClause 

S%£s NextClause = mbcNextClause 
End Property 

Private 1 Property Get IClause_ClauseEnd O As Long 

!Qiause_ClauseEnd = mlngCourtEnd 
End Property 

Private Property Get IClause_ClauseStart ( } As Long 

^lause_ClauseStart = mlngCourtStart 
End Property 

Private Function 1 Clause_Clone ( ) As IClause 

it&t bcClone As cClauseCourt 

§ei bcClone = New cClauseCourt 
Wi£h bcClone 

L„ .CourtStart = mlngCourtStart 
%„J .CourtEnd = mlngCourtEnd 
r"," Set .Court = Court 
f*~ .ExactMatch = mbolExactMatch. 
End With 

Set IClause_Clone = bcClone 
End Function 

Private Property Set IClauseJtfextClause (RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause__NextClause { ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause__PriorClause ( ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

IClause_Text = Text 
End Property 

Private Function IClause_Score ( } As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strPriorWord As String 

■ — Award up to 1 point for the internal score if the court is spelled correctly. 
If mbolExactMatch Then 

sngScorelnternal = 0.7 5 

If ActiveDoc. Words (mlngCourtStart , mlngCourtEnd) - Court . AbrvName Then sngScorelnternal = sngScorelnternal + 0.25 
End If 
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* — Award up to .5 points for the context score for the expected preceeding clause and text. 
If Not (robe Prior Clause Is Nothing) Then 

If Not {mlngCourtStart - 1 = mbcPriorClause . ClauseEnd) Then strPriorWord = Act iveDoc .Words (mlngCourtStart - 1} 
If TypeOf mbcPriorClause Is cClauseJurisdiction Then 
sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case "" 

sngScoreContext = sngScoreContext + 0.25 
Case " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

Else 

If TypeOf mbcPriorClause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case " ( " 

sngScoreContext = sngScoreContext + 0.25 
Case " , " , " " 

sngScoreContext = sngScoreContext + 0.125 
End Select 
End If 
End If 



' — Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not (mbcNext Clause Is Nothing) Then 

If TypeOf mbcNextClause Is cClauseDate Then 
sngScoreContext - sngScoreContext + 0.25 

If mlngCourtEnd + 1 = mbcNextClause . Clauses tart Then sngScoreContext = sngScoreContext + 0.25 

Else 

If Act iveDoc. Words (mlngCourtEnd +1) = ")" Then sngScoreContext = sngScoreContext + 0.25 
End If 

Else 

If ActiveDoc. Words (mlngCourtEnd +1) = ")" Then sngScoreContext - sngScoreContext + 0.25 
End If 



1 — Average the internal and context scores, with 40% weight for the internal score and 60% weight for the context score. 
IClause_Score = 0.4 * sngScorelnternal + 0.6 * sngScoreContext 



End Function 

Frienff ^Function Score () As Single 

Score - IClause_Score() 
End Faction 

i 

' PrivaTse Sub Class_Initialize ( ) 

.Clause sCount = ClausesCount + 1 

||^bug. Print "Creating clause. Total: " & ClausesCount 
■ End :^l5b 

' PrivWe Sub Class_Terminate ( } 

* ClausesCount = ClausesCount - 1 

iDebug. Print "Terminating clause. Total: " & ClausesCount 

• End ^Sub 
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■ Copyright 2001 by Robert L. Jacobson. 

Option Explicit 
Implements IClause 

Public FullDate As Date 

Private mlngDateStart As Long 
Private mlngDateEnd As Long 
Private mbcNext Clause As IClause 
Private mbcPriorClause As IClause 
Private mlngYear As Long 

Public Property Get DateStart ( ) As Long 

DateStart = mlngDateStart 
End Property 

Friend Property Let DateStart {Source As Long) 

mlngDateStart = Source 
End Property 

Public Property Get DateEndO As Long 

DateSnd = mlngDateEnd 
End Property 

Friend Property Let DateEnd< Source As Long) 

mlngDateEnd = Source 
End Property 

Public Property Get TextO As String 

Text = Act iveDoc .Words (mlngDateStart , mlngDateEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Set PriorClause = mbcPriorClause 
End Property 

Public Property Get NextClauseO As IClause 

Set NextClause = mbcNextClause 
End pl^perty 

Publi|EJProperty Get Year{) As Long 

Year = mlngYear 
End Property 

Friend'fProperty Let Year (Source As Long) 

itfifgYear = Source 
End property 

Private Property Get IClause_ClauseEnd ( ) As Long 

ljf|ause_ClauseEnd = mlngDateEnd 
End Property 

Privates Property Get IClause_ClauseStart ( ) As Long 

BiSiause_ClauseStart = mlngDateStart 
End f£ fjperty 

Priv^fl Function IClause_Clone { ) As IClause 

tiki bcClone As cClauseDate 

Set bcClone - New cClauseDate 
bcClone 

"""" .DateStart = mlngDateStart 

.DateEnd = mlngDateEnd 

.FullDate = FullDate 

.Year = mlngYear 
End With 

Set IClause_Clone = bcClone 
End Function 

Private Property Set IClause_NextClause {RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause {RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause_PiiorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text { ) As String 

IClause_Text = Text 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strClauseText As String 
Dim strNextWord As String 
Dim IngYear As Long 
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■ — Award up to 1 point for the internal score if the court is spelled correctly. 

strClauseText = TextO 

If mlngDateStart = mlngDateEnd Then 

'-- If the date clause is only one word long, then it is either a year or a placeholder. Award points if it is a valid 

year or a valid (4-6 length) placeholder. 
If IsNumeric (strClauseText) Then 
IngYear = Val ( strClauseText ) 

If IngYear > 1600 And IngYear < 2010 Then sngScorelnternal - 1 

Else 

If Len (strClauseText) > 4 And Len (strClauseText) < 7 Then 
sngScorelnternal - 1 

Else 

sngScorelnternal =0.5 
End If 
End If 

Else 

' — If the date clause is more than one word long, it contains a month and date. Award points if it has a year within 
' a valid range . 

IngYear = Val (Format$ (strClauseText , "yyyy")) 
If IngYear > 1600 And IngYear < 2010 Then 
sngScorelnternal = 1 

Else 

sngScorelnternal = 0.5 
End If 
End If 

'-- Award up to .5 points for the context score for the expected preceeding clause and text. 
If Not (mfocPriorClause Is Nothing) Then 

If TypeOf mbcPriorClause Is cClauseCourt Or TypeOf mbcPriorClause Is cClauseJurisdiction Then 
sngScoreContext = sngScoreContext + 0.25 

If mbcPriorClause . ClauseEnd + 1 = mlngDateStart Then sngScoreContext = sngScoreContext + 0.25 
Elself TypeOf mbcPriorClause Is cClauseReporter Then 
sngScoreContext = sngScoreContext + 0.25 

If Ac tiveDoc .Words (mlngDateStart - 1) = "(" Then sngScoreContext - sngScoreContext + 0.25 
End If 
End If 

1 Award up to .5 points for the context score for the expected subsequent clause and text. 
stjftfextWord = ActiveDoc. Words (mlngDateEnd + 1) 
l]£jmbcNextClause Is Nothing Then 
; fy If strNextWord - " ) " Then 

\. -i sngScoreContext = sngScoreContext + 0.5 

Elself strNextWord = "," Or strNextWord = ";" Then 
sngScoreContext = sngScoreContext + 0.25 
s 2 End If 
E^ae 

z . If strNextWord = " ) " Then 

sngScoreContext = sngScoreContext + 0.25 
ifl Elself strNextWord = "," Or strNextWord = " ; " Then 

sngScoreContext = sngScoreContext + 0.125 
iC" End If 
End If 

Average the internal and context scores , with 40% weight for the internal score and 60% weight for the context score. 
B2iause_Score = 0.4 * sngScorelnternal + 0.6 * sngScoreContext 
Hi 

End Eviction 

Friend Function Score 0 As Single 

§ct>re = IClause_Score ( ) 
End function 

Pri^te Sub Class_lnitialize ( ) 

ClausesCount = ClausesCount + 1 

Debug. Print "Creating clause. Total: " & ClausesCount 
End Sub 

Private Sub Class_Terminate ( ) 

ClausesCount - ClausesCount - 1 

Debug. Print "Terminating clause. Total: " & ClausesCount 
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End Sub 
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' — Copyright 2001 by Robert L. Jacobson. 

Option Explicit 
Implements IClause 

Public Jurisdiction As ^Jurisdiction 

Private mlngjurStart As Long 
Private mlngJurEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 
Private mbol Exact Match As Boolean 

Friend Property Let ExactMatch( Source As Boolean) 

mbolExactMatch = Source 
End Property 

Public Property Get JurStartO As Long 

JurStart - mlngjurStart 
End Property 

Friend Property Let JurStart (Source As Long) 

mlngjurStart = Source 
End Property 

Public Property Get JurEndO As Long 

JurEnd = mlngJurEnd 
End Property 

Friend Property Let JurEnd ( Source As Long) 

mlngJurEnd = Source 
End Property 

Public Property Get TextO As String 

Text = ActiveDoc. Words (mlngjurStart, mlngJurEnd) 
End Property 

Public Property Get PriorClause { ) As IClause 

Set PriorClause = mbcPriorClause 
End Fgjdjperty 

Pub lity Property Get NextClauseO As IClause 

S%t| NextClause = mbcNextClause 
End Pfiifperty 

Priva|j<f Property Get IClause_ClauseEnd( ) As Long 

I£lause_ClauseEnd = mlngJurEnd 
End Property 

Private Property Get IClause_ClauseStart ( ) As Long 

l|;iause_ClauseStart = mlngjurStart 
End Property 

Priva%$ Function lClause_Clone ( ) As IClause 
ifisi bcClone As cClauseJurisdiction 

3 "-iff 

£©jb bcClone = New cClauseJurisdiction 
fi;th bcClone 

.JurStart = mlngjurStart 
jj/l -JurEnd = mlngJurEnd 
jr v " Set .Jurisdiction = Jurisdiction 
b#± -ExactMatch = mbolExactMatch 
End With 

Set IClause_Clone = bcClone 
End Function 

Private Property Set IClause_Next Clause {RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause { ) As IClause 

Set IClausejNextClause = mbcNextClause 
End Property 

Private Property Set lClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set lClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause„_Text ( ) As String 

IClause_Text = Text 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngS core Internal As Single 
Dim sngScoreContext As Single 
Dim strNextWord As String 
Dim strPriorWord As String 

' -- Award up to 1 point for the internal score if the jurisdiction is spelled correctly. 
If mbolExactMatch = True Then 
sngScorelnternal = 0.75 

If Ac tiveDoc. Words (mlngjurStart, mlngJurEnd) = Jurisdiction. AbrvKame Then sngScorelnternal = sngScorelnternal + 0.25 
End If 
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1 — Award up to .5 points for the context score for the expected preceeding clause and text. 

If Not {mbcPriorClause Is Nothing) Then 

If Not {mlngJurStart - 1 - mbcPriorClause- ClauseEnd) Then strPriorWord = ActiveDoc .Words (mlngJurStart - 1) 
If TypeOf mbcPriorClause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case " ( " 

sngScoreContext = sngScoreContext + 0.25 
Case " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 
End If 

■ — Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not (mbcNextClause Is Nothing) Then 

If Not (mlngJurEnd + 1 = mbcNextClause. ClauseStart) Then strNextWord = ActiveDoc .Words (mlngJurEnd + 1) 
If TypeOf mbcNextClause Is cClauseCourt Or TypeOf mbcNextClause Is cClauseDate Then 
sngScoreContext = sngScoreContext + 0.25 
Select Case strNextWord 
Case " " 

sngScoreContext = sngScoreContext + 0.25 
Case " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

Else 

Select Case strNextWord 
Case " ) " 

sngScoreContext - sngScoreContext +■ 0.25 
Case " " , " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 
End If 

Else 

If ActiveDoc .Words (mlngJurEnd + 1) = " )" Then sngScoreContext = sngScoreContext + 0.25 
End If 

■ — Average the internal and context scores, with 40% weight for the internal score and 60% weight for the context score. 
IClause_Score =0.4* sngScorelnternal +0.6* sngScoreContext 

As=. 

End EfuJction 

FrierMjFunction Score () As Single 

Scare ~ IClause_Score ( ) 
End Function 

\~ I 

' Privaje Sub Class_Initialize ( ) 

gCJausesCount = ClausesCount + 1 

STJ^bug. Print "Creating clause. Total: " & ClausesCount 
' End ^ub 

'Private Sub Class_Terminate ( ) 

f€4ausesCount = ClausesCount - 1 

^Effebug. Print "Terminating clause. Total: " & ClausesCount 
' End^Mib 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolClausesAtWord ( ) As Collection 
Private mbolPerf ectReporter ( ) As Boolean 
Private mbolPerf ect Jurisdiction () As Boolean 
Private mbol Per feet Court () As Boolean 

Private Const MAXIMUMCLAUSELENGTH As Long =12 

Public Sub Initialise () 

ReDim mcolClausesAtWord(l To Acta veDoc. Words. Count) 
ReDim mbolPerf ectReporter (1 To Ac tiveDoc .Words .Count) 
ReDim mbolPerf ect Jurisdiction (1 To ActiveDoc. Words. Count) 
ReDim mbolPerf ectCourt { 1 To ActiveDoc .Words . Count) 

End Sub 

Public Function ClausesStartingAtWord (WordNumber As Long) As Collection 

Dim IngCheckTo As Long 
Dim IngLastWord As Long 
Dim strPhraseTrim As String 
Dim bcNewClause As iClause 



If mcolClausesAtWord { Wo rdUumber) Is Nothing Then 

Set mcolClausesAtWord (WordNumber) = New Collection 

If Not (ActiveDoc .Words . Underline (WordNumber) = False) Then 
Set bcNewClause = MatchingCaseNameClause {WordNumber) 
If Not (bcNewClause Is Nothing) Then 

mcolClausesAtWord (WordNumber) .Add bcNewClause 
End If 

Elself Not (ActiveDoc. Words .WordsTrimf WordNumber) = "") Then 

O ' — Determine the maximum number of words to check in the phrase. 
JJI IngCheckTo = WordNumber + MAXIMUMCLAUSELENGTH - 1 

%™J if IngCheckTo > ActiveDoc . Words . Count Then IngCheckTo = ActiveDoc . Words . Count 

. ' — Iterate from the longest phrase to the shortest phrase. 

%| For IngLastWord = IngCheckTo To WordNumber Step -1 

™ If Not (Ac tiveDoc. Words. WordsTrimt IngLastWord) = "") Then 

Ms strPhraseTrim = ActiveDoc. Words. WordsTrim{ WordNumber, IngLastWord) 

r "'" ' Locate and add the matching reporter clauses, matching jurisdiction clauses and matching court clauses 

^|] ' only if the first and last words are not numbers. 

'I'll If Not ActiveDoc .Words . I sNumber (WordNumber , False) _ 

>4?5 And Not Ac tiveDoc. Words. IsNumber( IngLastWord, False) Then 

25 Set bcNewClause = MatchingReporterClause (WordNumber , IngLastWord, strPhraseTrim) 

f*\ If Not {bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

1 5= Set bcNewClause - MatchingjurisdictionClause (WordNumber, IngLastWord, strPhraseTrim) 

If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

Set bcNewClause = MatchingCourtClause (WordNumber, IngLastWord, strPhraseTrim) 
=* fiie If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

End If 

■ -- Add the matching date clause. 

Set bcNewClause = MatchingDateClause (WordNumber , IngLastWord, ActiveDoc . Words (WordNumber , IngLastWord)) 
If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

End If 

Next IngLastWord 

Else 

■ — Add a matching date clause placeholder. 

Set bcNewClause = MatchingDateClausePlaceholder (WordNumber) 

If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 
End If 
End If 

Set ClausesStartingAtWord = mcolCiausesAtWord(WordNumber) 
End Function 

Private Function MatchingCaseNameClause (Fir stWord As Long) As cClauseCaseName 
Dim i As Long 

If ActiveDoc, Words (FirstWord, FirstWord + 2) = CASENAME_PLACEHOLDER Then 
Set MatchingCaseNameClause = New cClauseCaseName 
MatchingCaseNameClause. ClauseStart = FirstWord 
MatchingCaseNameClause -ClauseEnd = FirstWord + 2 
Elself ActiveDoc. Words .Underline (FirstWord - 1) =■ False Then 
Set MatchingCaseNameClause = New cClauseCaseName 
MatchingCaseNameClause. Clauses tart = FirstWord 
For i = FirstWord To ActiveDoc .Words . Count - 1 

If ActiveDoc .Words .Underline (i +1) = False Then 
MatchingCaseNameClause. ClauseEnd = i 
Exit For 
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End If 
Next i 
End if 

End Function 

Private Function MatchingReporterClause {FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseReporter 

Dim bcReporter As cReporter 
Dim bcClause As IClause 

Dim bcExistingReporterClause As cClauseReporter 
Dim bolExactMatch 



* — Abort if a correctly-spelled reporter has already been found that overlaps this phrase. 
If ExactMatchFound(mbolPerfectReporter ( ) , FirstWord/ LastWord) Then Exit Function 

■ — Abort if the phrase is "id", since the phrase is mistaken for "Ind. 11 
If PhraseTrim = "id" Then Exit Function 

* — Is there a reporter that matches this phrase? 

Set bcReporter = Jurisdictions . AllReporters . Item {PhraseTrim, True, False, True) 
If Not {bcReporter Is Nothing) Then 

ExactMatchFound(mbolPerf ectReporter (} , FirstWord, LastWord) = True 

bolExactMatch = True 

Else 

Set bcReporter = Jurisdictions . AllReporters . Item (PhraseTrim, False, True, True) 
End If 



If Not (bcReporter Is Nothing) Then 

' — Abort if there's an existing reporter clause starting at the same word with the same associated reporter. 
For Each bcClause In mcolClausesAtWord( FirstWord) 
If TypeOf bcClause Is cClauseReporter Then 
Set bcExistingReporterClause = bcClause 
If bcExistingReporterClause. Reporter Is bcReporter Then 

If bcExistingReporterClause. ClauseEnd = LastWord + 1 Then 
Exit Function 

0 End If 
End If 

End If 
\| Next bcClause 

\i ' — Build a new reporter clause. 

1 * 5 Set MatchingReporterClause = New cClauseReporter 

with MatchingReporterClause 
i-i. Set .Reporter = bcReporter 
^„ .AbrvStart = FirstWord 

HI .AbrvEnd = LastWord 

If Ac tiveDoc. Words (LastWord + 1) = "." Then .AbrvEnd = LastWord + 1 
#* .ExactMatch = bolExactMatch 

„ End With 

if? If 
End fMiction 

Priv&dfe Function MatchingJurisdictionClause (FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseJurisdicti 

Sim bcJurisdiction As cJurisdiction 
jljrt bcClause As IClause 

pirn bcExistingJurisdictionClause As cClauseJurisdiction 
i£f5?m bolExactMatch As Boolean 



* — Abort if a correctly-spelled jurisdiction has already been found that overlaps this phrase. 
If Exact Ma tchFound (mbolPerfect Jurisdiction { ) , FirstWord, LastWord) Then Exit Function 

' — Abort if the phrase is "id", since the phrase is mistaken for "Ind. " 
If PhraseTrim = "id" Then Exit Function 

' — Is there a jurisdiction that matches this phrase? 

Set bcJurisdiction = Jurisdictions . Item {PhraseTrim, True, False, True) 
If Not (bcJurisdiction Is Nothing) Then 

ExactMatchFound (mbolPerf ectJurisdiction { ) , FirstWord, LastWord) - True 

bolExactMatch - True 

Else 

Set bcJurisdiction = Jurisdictions . Item (PhraseTrim, False, True, True) 
End If 

If Not (bcJurisdiction Is Nothing) Then 

■ — Abort if there's an existing jurisdiction clause starting at the same word with the same associated reporter. 
For Each bcClause In mcolClausesAtWord (FirstWord) 
If TypeOf bcClause Is cClauseJurisdiction Then 
Set bcExistingJurisdictionClause = bcClause 

If bcExistingJurisdictionClause. Jurisdiction Is bcJurisdiction Then Exit Function 
End If 
Next bcClause 

' -- Build a new reporter clause. 

Set MatchingJurisdictionClause - New cClauseJurisdiction 
With MatchingJurisdictionClause 

Set .Jurisdiction = bcJurisdiction 

.JurStart = FirstWord 

.JurEnd = LastWord 

If ActiveDoc. Words (LastWord +1) = Then .JurEnd = LastWord + 1 
.ExactMatch = bolExactMatch 
End With 
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End If 
End Function 

Private Function MatchingCourtClause (FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseCourt 

Dim bcCourt As cCourt 
Dim bcClause As IClause 

Dim bcExistingCourtClause As cClauseCourt 
Dim bolExactMatch As Boolean 



' — Abort if a correctly-spelled jurisdiction has already been found that overlaps this phrase. 
If ExactMatchFound (mbolPerfectCourt {) , FirstWord, LastWord) Then Exit Function 

' — Is there a court that matches this phrase? 

Set bcCourt = Jurisdictions .AllCourts . Item (PhraseTrim, True, False, True) 
If Not (bcCourt Is Nothing) Then 

ExactMatchFound(mbolPer£ ectCourt () , FirstWord, LastWord) = True 

bolExactMatch = True 

Else 

Set bcCourt = Jurisdictions. AllCourts. Item (PhraseTrim, False, True, True) 
End If 

If Not (bcCourt Is Nothing) Then 

1 — Abort if there's an existing jurisdiction clause starting at the same word with the same associated reporter. 
For Each bcClause In mcolClausesAtWord (FirstWord) 
If TypeOf bcClause Is cClauseCourt Then 
Set bcExistingCourtClause = bcClause 

If bcExistingCourtClause. Court Is bcCourt Then Exit Function 
End If 
Next bcClause 

Set MatchingCourtClause = New cClauseCourt 
With MatchingCourtClause 
Set .Court = bcCourt 
.CourtStart = FirstWord 
.CourtEnd = LastWord 
ITJ If Ac tiveDoc .Words (LastWord + 1) = " . " Then .CourtEnd = LastWord + 1 
■21 .ExactMatch = bolExactMatch 
%i End With 

Eni If 

End Function 

Private Function MatchingDateClausePlaceholder (WordNumber As Long) As cclauseDate 

lE^fs Ac tiveDoc. Words < Wo rdNumber) = " 11 Then 

Set MatchingDateClausePlaceholder = New cClauseDate 
s^s With MatchingDateClausePlaceholder 

.DateStart = WordNumber 
s .DateEnd = WordNumber 

End With 

mh if 

End function 

Private Function MatchingDateClause (FirstWord As Long, LastWord As Long, ByVal Phrase As String) As cClauseDate 
ffein IngLastWordVal As Long 

* — IsDate does not interpret a valid date that is missing a space after a period; e.g., "Jan.l, 1980". 
' Force an extra space after each period to compensate. 
Phrase = Replace (Phrase, ". ") 

IngLastWordVal = Val {Ac tiveDoc. Words (LastWord) ) 
If IngLastWordVal > 1600 And IngLastWordVal < 2010 Then 
If LastWord = FirstWord Then 

Set MatchingDateClause = New cClauseDate 
With MatchingDateClause 

.DateStart = FirstWord 
.DateEnd = LastWord 
.Year = IngLastWordVal 
End With 
Elself IsDate (Phrase) Then 

Set MatchingDateClause = New cClauseDate 
With MatchingDateClause 

.DateStart = FirstWord 
.DateEnd - LastWord 
.FullDate = CDate( Phrase) 
.Year = CLng( Format (Phrase, "yyyy")) 
End With 
End If 
End If 

End Function 

Private Property Get ExactMatchFound (Perf ectClause { ) As Boolean, FirstWord As Long, LastWord As Long) As Boolean 
Dim i As Long 



ExactMatchFound = True 

For i = FirstWord To LastWord 

If Perf ectClause (i) = False Then 
ExactMatchFound = False 
Exit Property 
End If 
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Next i 
End Property 

Private Property Let ExactMatchFound(PerfectClause { } As Boolean, FirstWord As Long, LastWord As Long, Source As Boolean) 
Dim i As Long 

For i = FirstWord To LastWord 
PerfectClause(i) = Source 
Next i 



End Property 



cClauseReporter - 1 

— Copyright 2001 by Robert L. Jacobson. 

Option Explicit 
Implements IClause 

Public IsParenfchetical As Boolean 

Private mlngFirstPageLocation As Long 
Private mlngVolumeNumberLocation As Long 
Private mlngPinStart As Long 
Private mlngPinEnd As Long 
Private mbcReporter As cReporter 

Private mlngAbrvStart As Long 
Private mlngAbrvEnd As Long 
Private rabcNext Clause As IClause 
Private mbcPriorClause As IClause 

Private mbcEditor As cEditor 

Private mbolExactMatch As Boolean 

Friend Property Let ExactMatch (Source As Boolean) 

mbolExactMatch = Source 
End Property 



Public Property Get FirstPageLocation { ) As Long 

FirstPageLocation = mlngFirstPageLocation 
End Property 

Friend Property Let FirstPageLocation (Source As Long) 

mlngFirstPageLocation = Source 
End Property 

Public Property Get VolumeNumberLocation ( } As Long 

VolumeNumberLocation = mlngVolumeNumber Location 
End Property 

FrienW-Property Let VolumeNumberLocation (Source As Long) 

mJfigVolumeNumberLocation = Source 
End Property 

%J 

Public = Property Get PinStartO As Long 

p'felStart = mlngPinStart 
End ff|perty 

Frie&di: Property Let PinStart (Source As Long) 

mlngPinStart = Source 
End |frj>perty 

Publltr Property Get PinEnd ( ) As Long 

ginEnd = mlngPinEnd 
End property 

Friesajsl Property Let PinEnd { Source As Long) 

BiMigPinEnd = Source 
End f^rbperty 

Publjfcd Property Get Reporter () As cReporter 

&&t Reporter = mbcReporter 
End &operty 

Friefxd Property Set Reporter (Source As cReporter) 

Set mbcReporter = Source 
End Property 

Public Property Get AbrvStartO As Long 

AbrvStart = mlngAbrvStart 
End Property 

Friend Property Let AbrvStart (Source As Long) 

mlngAbrvStart = Source 
End Property 

Public Property Get AbrvEnd () As Long 

AbrvEnd = mlngAbrvEnd 
End Property 

Friend Property Let AbrvEnd (Source As Long) 

mlngAbrvEnd = Source 
End Property 

Public Property Get EditorClause { } As cEditor 

Set EditorClause = mbcEditor 
End Property 

Friend Property Set EditorClause { Source As cEditor) 

Set mbcEditor = Source 
End Property 

Public Property Get Textf) As String 

Text = Ac tiveDoc .Words {ClauseStart , ClauseEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Set PriorClause = mbcPriorClause 
End Property 

Public Property Get NextClause ( ) As IClause 
Set NextClause = mbcNexfcClause 
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Public Function ClauseStart ( ) As Long 
If VolumeNuinberLocation > 0 Then 

ClauseStart = VolumeHumber Location 

Else 

ClauseStart = AbrvStart 
End If 
End Function 

Public Function ClauseEnd <) As Long 
If PinEnd > 0 Then 

ClauseEnd = PinEnd 
Elself FirstPageLocation > 0 Then 

ClauseEnd = FirstPageLocation 
Elself Not (mbcEditor Is Nothing) Then 

ClauseEnd = mbcEditor . ClauseEnd 

Else 

ClauseEnd = mlngAbrvEnd 
End If 
End Function 

Public Function AbrvText 0 As String 

AbrvText = Act iveDoc .Words (mlngAbrvStart, mlngAbrvEnd) 
End Function 

Public Function VolumeNumber ( ) As Long 

If mlngVolumeNumberLocation > 0 Then VolumeNumber = Val {Act iveDoc .Words (mlngVolumeNumberLocation) ) 
End Function 

Public Function FirstPageNumber ( } As Long 

If mlngFirstPageLocation > 0 Then FirstPageNumber = Val (ActiveDoc . Words (mlngFirstPageLocation) ) 
End Function 



Private Property Get IClause„ClauseEnd ( ) As Long 

ICJLause_ClauseEnd = ClauseEnd 
End p£dperty 

Privaiy Property Get IClause„ClauseStart { ) As Long 

ICfause_ClauseStart = ClauseStart 
End Prcjperty 

Privates Function lClause_Clone ( ) As IClause 

iHm bcClone As cClauseReporter 

sjff bcClone = New cClauseReporter 
W^'ih bcClone 

4^ .AbrvStart = mlngAbrvStart 

.AbrvEnd = mlngAbrvEnd 
* Set .Reporter = Reporter 
f"\ .ExactMatcfr = mbolExactMatch 
§£i| With 

f|i IClause^Clone = bcClone 
End feyiiction 

Privlte Property Set I Clause_jiext Clause (RHS As IClause) 

§§J: mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause {) As IClause 

Set IClause__NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause (RHS As IClause) 

Set mbcPriorClause - RHS 
End Property 

Private Property Get IClause_JPriorClause ( ) As IClause 

Set IClause_PriorClause ~ mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

IClause_Text - Text 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strNextWord As String 



Award up to .2 point for the internal score if the reporter is spelled correctly. 
If mbolExactMatch = True Then 
sngScorelnternal = 0.1 

If Act iveDoc. Words (Me .AbrvStart, Me. AbrvEnd) = Me. Reporter. AbrvName Then sngScorelnternal = sngScorelnternal + 0.1 
End If 

Award .4 points for the internal score if the reporter has a volume number. 
If ActiveDoc .Words . I sNumber (Me .AbrvStart - 1, True) Then sngScorelnternal = sngScorelnternal + 0.4 

'-- Award .4 points for the internal score if the reporter has a first page number or pinpoint page number. 
If FirstPageLocation > 0 Then 

sngScorelnternal = sngScorelnternal + 0.4 
Elself PinStart > 0 Then 

If ActiveDoc .Words .WordsTrimt PinStart) = "at" Then 
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sngScorelnternal = sngScorelnternal + 0.4 

Else 

sngScorelnternal = sngScorelnternal + 0.2 
End If 
End If 

' — Award up to .5 points for the context score for the expected preceeding clause and text. 
If Wot (mbcPriorClause Is Nothing) Then 

If TypeOf mbcPriorClause Is cClauseReporter Or TypeOf mbcPriorClause Is cClauseCaseName Then sngScoreContext = sngScoreContext + 0. 

25 

End If 

If ActiveDoc, Words {ClauseStart () - 1) = " , 11 Then sngScoreContext = sngScoreContext + 0.25 

' — Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not (mbcNext Clause Is Nothing) Then 

If TypeOf mbcNextClause Is cClauseReporter Or TypeOf mbcNextClause Is cClauseJurisdiction Or TypeOf mbcNextClause Is cClauseCourt O 
r TypeOf mbcNextClause Is cClauseDate Then sngScoreContext = sngScoreContext + 0.25 
End If 

strNextWord = ActiveDoc .Words (ClauseEnd ( ) + 1) 

If strNextWord = "," Or strNextWord = "(" Then sngScoreContext ~ sngScoreContext + 0.25 

'-- Average the internal and context scores, with 60% weight for the internal score and 40% weight for the context score. 
(Greater weight to the internal score than for other clauses because there is more data — volume numbers and page 
numbers — on which to base the internal score.) 

IClause_Score = 0.7 * sngScorelnternal +0.3 * sngScoreContext 

End Function 

Friend Function Score {) As Single 

Score = IClause_jScore ( ) 
End Function 

'Private Sub Class_Initialize ( ) 

' ClausesCount = ClausesCount + 1 

Debug .Print "Creating clause. Total: " & ClausesCount 

'End Sub 

' Priv|[t§e Sub Class_Terminate { ) 

feJausesCount = ClausesCount - 1 

3)sbug, Print "Terminating clause. Total: " & ClausesCount 



End Ifab 
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■ — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolClauses As Collection 
Private mbcLastClause As IClause 

Private Sub Class_Initialize() 

Set mcolClauses = New Collection 
End Sub 

Public Sub Add (Clause As IClause, Optional Key As Variant) 

If Not {mbcLastClause Is Nothing) Then 
Set mbcLastClause. NextClause = Clause 
Set Clause- PriorClause = mbcLastClause 

End If 

mcolClauses. Add Clause, Key 
Set mbcLastClause = Clause 

End Sub 

Public Function Count {) As Long 

Count = mcolClauses. Count 
End Function 

Public Function Item{ Index As Variant) As IClause 

Set Item - mcolClauses . Item (Index) 
End Function 

Public Function NewEnumO As IUnknown 

Set NewEnum = mcolClauses . [_NewEnum] 
End Function 

Private Sub Class_Terminate ( ) 

Dim bcClause As IClause 

Fjw% Each bcClause In mcolClauses 

its* Set bcClause .NextClause = Nothing 
N^§t bcClause 

End Sfeaj 



cSditor - 1 



■ — Copyright 2001 by Robert L. Jacobson. 

Option Explicit 

Private mlngAbrvStart As Long 
Private mlngAbrvEnd As Long 
Private mbcReporter As cReporter 
Private mlngVolumeNumberLocation As Long 
Private mlngVolumeNumber As Long 
Private mlngClauseStart As Long 
Private mlngClauseEnd As Long 
Private mbollnitialized As Boolean 

Public Property Get AbrvStartO As Long 

AbrvStart - mlngAbrvStart 
End Property 

Friend Property Let AbrvStart { Source As Long) 
mlngAbrvStart = Source 

If mlngAbrvStart > 0 And mlngAbrvEnd > 0 And Not mbollnitialized Then Call Initialize 
End Property 

Public Property Get AbrvEnd {) As Long 

AbrvEnd = mlngAbrvEnd 
End Property 

Friend Property Let AbrvEnd (Source As Long) 
mlngAbrvEnd - Source 

If mlngAbrvStart > 0 And mlngAbrvEnd > 0 And Not mbollnitialized Then Call Initialize 
End Property 

Public Property Get Reporter ( ) As cReporter 

Set Reporter = mbcReporter 
End Property 

Friend Property Set Reporter { Source As cReporter) 

Set mbcReporter = Source 
End Property 

Public^Property Get VolumeNumberLocation ( ) As Long 

Vo^fmeNumberLocation = mlngVolumeNumberLocation 
End Property 

PublidCgroperty Get VolumeNumber ( ) As Long 

VofomeNumber = mlngVolumeNumber 
End Property 

Publ ioU proper ty Get ClauseStart { ) As Long 

CDgauseStart = mlngClauseStart 
End Property 

Publicfjroperty Get Clause-End () As Long 

Cl|fjiseEnd - mlngClauseEnd 
End Property 

Publicf^unction Text{) As String 

Te|c£ - Ac tiveDoc. Words {mlngClauseStart, mlngClauseEnd) 
End Function 

Publicljfunction AbrvText ( } As String 

AbgyText = Ac tiveDoc. Words (mlngAbrvStart, mlngAbrvEnd) 
End Function 



PrivatfeaiSub Initialize () 

' -- Locate the volume number. 

If Ac tiveDoc .Words . I sNumber (mlngAbrvStart - 1, True) Then 
mlngVolumeNumberLocation = mlngAbrvStart - 1 

mlngVolumeNumber = Val (Act iveDoc .Words (mlngVolumeNumberLocation) ) 
Elself Act iveDoc. Words. WordsTrim (mlngAbrvStart - 1) = "" And Ac tiveDoc .Words (mlngAbrvStart - 1) <> " ( " Then 
If Act iveDoc. Words. IsNumber( mlngAbrvStart - 2, True} Then 
mlngVolumeNumberLocation = mlngAbrvStart - 2 

mlngVolumeNumber = Val (Act iveDoc .Words (mlngVolumeNumberLocation) ) 
End If 
End If 

' — Locate the clause start. 
mlngClauseStart = mlngAbrvStart 

If mlngVolumeNumberLocation > 0 Then mlngClauseStart = mlngVolumeNumberLocation 
If ActiveDoc. Words (mlngClauseStart - 1) = "(" Then 

mlngClauseStart = mlngClauseStart - 1 
Elself Act iveDoc. Words. WordsTrim (mlngClauseStart - 1) = "" And ActiveDoc .Words (mlngClauseStart - 1) <> " ) " Then 

If ActiveDoc. Words (mlngClauseStart - 2) = " ( " Then 
mlngClauseStart = mlngClauseStart - 2 

End If 
End If 

■ — Locate the clause end, 
mlngClauseEnd = mlngAbrvEnd 

If ActiveDoc .Words (mlngClauseEnd + 1) = " ) " Then 

mlngClauseEnd = mlngClauseEnd + 1 
Elself Ac tiveDoc. Words. WordsTrim (mlngClauseEnd + 1) = And Ac tiveDoc. Words (mlngClauseEnd + 1} <> " ( " Then 
If ActiveDoc .Words (mlngClauseEnd + 2) = " ) " Then 

mlngClauseEnd = mlngClauseEnd + 2 
Elself Ac tiveDoc. Words (mlngClauseEnd + 1) = "," Then 

mlngClauseEnd = mlngClauseEnd + 1 
End If 
End If 



End Sub 
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Friend Function EditorScore (MainClauseAbrvEnd As Long) As Long 
Dim strWord As String 



strWord = ActiveDoc . Words (mlngClauseEnd) 
If strWord = ")" Then 

EditorScore = EditorScore + 2 
Elself strWord = " , " Then 

EditorScore = EditorScore + 1 
End If 

If mlngvolumeNumberLocati on > 0 Then 

If mlngVolumeNumber Location = mlngAbrvStart - 1 Then EditorScore = EditorScore + 2 Else EditorScore = EditorScore + 1 
End If 

If ActiveDoc .Words (mlngClauseStart) = "(" Then 

EditorScore = EditorScore + 2 
Elself ActiveDoc. Words (mlngClauseStart - 1) = "," Then 

EditorScore = EditorScore + 1 
End If 

If mbcReporter , isEditorReporter Then EditorScore = EditorScore + 3 

If MainClauseAbrvEnd < mlngClauseStart - 1 Then EditorScore = EditorScore - (mlngClauseStart - MainClauseAbrvEnd) + 1 



End Function 
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— Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public Function IsDecisionClauseClause (Clause As IClause) As Boolean 

If TypeOf Clause Is cClauseJurisdiction _ 
Or TypeOf Clause Is cClauseCourt _ 

Or TypeOf Clause Is cClauseDate Then isDecisionClauseClause = True 
End Function 

Public Function ReportersCompatibleWithCourt {Court As cCourt, ReporterClauses As Collection, Optional MatchingYear As Long) As Long 

' — Returns one point for each reporter clause that is compatible with the supplied court. 

Dim bcReporterClause As cClauseReporter 
Dim bcMatchingReporter As cReporter 
Dim IngScore As Long 



1 — if the reporter clause's abbreviation is spelled correctly, then only search for reporters within the court that 
match this abbreviation exactly. Otherwise, search for similar reporters. 

For Each bcReporterClause In ReporterClauses 

If ActiveDoc .Words .WordsTrim(bcReporterClause.AbrvStart, bcReporterClause .AbrvEnd) = bcRepor terClause. Reporter. AbrvNameTriiri Then 
Set bcMatchingReporter = Court . Reporters . I tern (bcRepor terClause. AbrvText, True, False) 

Else 

Set bcMatchingReporter = Court .Reporters . Item {bcReporterClause .AbrvText, True, True} 
End If 

If Not (bcMatchingReporter Is Nothing) Then 
IngScore = IngScore + 1 

If MatchingYear > 0 Then If bcMatchingReporter . Year Start <= MatchingYear And MatchingYear <= bcMatchingReporter .YearEnd Then In 
gScore = IngScore + 1 
End If 

Next bcReporterClause 

R^pprtersCompatibleWithCourt = IngScore 
End Fuel: t ion 

Public^unction JurisdictionCompatibilityWithReporters (ByRef Jurisdiction As cJurisdiction, ByRef ReporterClauses As Collection) As Long 

'P- Returns a number indicating the level of compatibility between the jurisdiction and the reporter clauses. (One point for 
'IN 5 each reporter with which the jurisdiction is compatible.) 

DIM bcReporterClause As cClauseReporter 
Djfff strReporterTextTrim As String 
DlTm bcCourt Group As cCourtGroup 
Di.m bcMatchingReporter As cReporter 
Djijs. IngScore As Long 

Fcjf Each bcReporterClause In ReporterClauses 

strReporterTextTrim = Act iveDoc. Words .WordsTrim (bcReporterClause. AbrvStart, bcReporterClause .AbrvEnd) 
For Each bcCourtGroup In Jurisdiction. CourtGroups 
fzz Set bcMatchingReporter = bcCourtGroup. Reporters. Item (strReporterTextTrim, True, True) 

If Not (bcMatchingReporter Is Nothing) Then 
IngScore = IngScore + 1 
= " Exit For 

End If 
Next bcCourtGroup 

Next bcReporterClause 

JurisdictionCompatibilityWithReporters = IngScore 



End Function 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public Property Get Text { ) As String 
End Property 

Public Property Get ClauseStart { ) As Long 
End Property 

Public Property Get ClauseEndO As Long 
End Property 

Public Property Get NextClauseO As IClause 
End Property 

Public Property Set NextClause (Source As IClause) 
End Property 

Public Property Get PriorClause { ) As IClause 
End Property 

Public Property Set PriorClause (Source As IClause) 
End Property 

Public Function Score () As Single 
End Function 

Public Function Clone {) As IClause 
End Function 
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— Copyright 2001 by Robert L. Jacobson. 
Option Explicit 
Public ClausesCount As Long 

Public Const CASENAME_PLACEHOLDER As String 
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— Copyright 2001 by Robert D. Jacobson. 
Option Explicit 

Private mmswLinkedDocument As Word. Document 
Private mbolDodsHidden As Boolean 
Private mbcWords As cWords 

Public Property Get Text{) As String 

Text = Words . Text 
End Property 

Public Property Get RTP{) As String 

RTF = mbcWords . TextRTF ( 1 , mbcWords . Count ) 
End Property 

Public Sub Initialize {Optional MSWordDocument As Word. Document) 

If MSWordDocument Is Nothing Then 

Set mmswLinkedDocument = Word. Documents. Add(Visible:=False) 
mbolDodsHidden = True 

Else 

Set mmswLinkedDocument = MSWordDocument 
End If 

Set mbcWords = New cWords 

Call mbcWords . Initialize (mmswLinkedDocument) 
End Sub 

Public Property Get Words {) As cWords 

Set Words = mbcWords 
End Property 

Public Property Get Range ( ) As Word. Range 

Set Range = mmswLinkedDocument . Range 
End Property 

Publ iss -Property Let Format tedText {Source As Word. Range) 

itil^LinkedDocument . Range . Formatt edText = Source . Format tedText 
Cajy. mbcWords . ResetCache 

End pBdperty 

Private! Sub Class_Terminate O 

C^tl mbcWords . Teardown 
sy*tl mbcWords = Nothing 

lJ"JmbolDocIsHidden Then mmswLinkedDocument . Close wdDoNotSaveChanges 
s|fl| mmswLinkedDocument = Nothing 

End s|& 
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— Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public Property Get ActiveDoc () As cDocument 

Set ActiveDoc = gbcActiveDoc 
End Property 

Public Property Set ActiveDoc (Source As cDocument} 

Set gbcActiveDoc = Source 
End Property 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mrtf Box As RichTextBox 

Public Property Get Text RTF { ) As String 

With mrtf Box 

.SelStart = 0 

.SelLength = Lent. Text) 

Text RTF = . SelRTF 
End With 

End Property 

Public Property Let TextRTF (Source As String) 

mrtfBox. TextRTF = Source 
End Property 

Public Property Get TextO As String 

Text = mrtf Box. Text 
End Property 

Public Property Let SelStart {Source As Long) 

mrtfBox. SelStart = Source - 1 
End Property 

Public Property Let SelLength { Source As Long) 

mrtfBox. SelLength = Source 
End Property 

Public Property Let SelColor {Source As Long) 

mrtfBox. Sel Co lor = Source 
End Property 

Public Function StripRTF (Source As String) As String 

T§x£RTF = Source 
SfeaJ.pRTF = TextRTF 

End Function 

Priva^eJ Sub Class_Initialize ( ) 

mrtfBox = fRichText . rtf Box 

End Sub 

Private: Sub Class_Terininate() 

m#€f Box. TextRTF = 
End Sub 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mmswDocument As Word , Document 
Private mstrWordCache ( ) As String 
Private mstrWordTrimCache( } As String 
Private mlngFirstCharCache { ) As Long 
Private mlngLastCharCache () As Long 
Private mlngScore() As Long 
Private mstrText As String 
Private mlngCount As Long 
Private mbolCachelnitialized As Boolean 

Friend Sub Initialize (MSWDocument As Word . Document ) 

Set mmswDocument = MSWDocument 

mbolCachelnitialized = False 
End Sub 

Friend Sub TeardownO 

Set mmswDocument = Nothing 
End Sub 

Public Property Get Count ( } As Long 

If Not mbolCachelnitialized Then Call ResetCache 

Count = mlngCount 
End Property 

Public Property Get Text RTF ( ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 

Dim mswRange As Word . Range 

Dim bcRichText As New cRichText 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord - 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
'.^Select the text in the word document, then copy it to the clipboard. 
Cupboard - Clear 

slhf mswRange = Range (FirstWord, LastWord, False, False) 
m&jjRange . Copy 

'^laste the text into the RTF box, then set the return value to the box's RTF code. 
vMlh bcRichText 

hzk . TextRTF = Clipboard. Get Text { vbCFRTF) 
^s, TextRTF = . TextRTF 
-^A With 

End Property 

Publ^ Property Let TextRTF (ByVal FirstWord As Long, ByVal LastWord As Long, Source As String) 

BjjpEL mswRange As Word -Range 

Mlti bcRichText As New cRichText 

M 

%£~ LastWord = 0 Then LastWord = FirstWord 

Xf. FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

='" : Put the source RTF into the RTF box, then copy the contents of the box to the clipboard. 

Clipboard. Clear 
With bcRichText 

. TextRTF = Source 

Clipboard. SetText . TextRTF, vbCFRTF 
End With 

1 Paste the clipboard into the document, then reparse . 

Set mswRange = Range (FirstWord, LastWord, False, False) 
mswRange .Paste 

mbolCachelnitialized = False 
End Property 

Friend Property Get Text() As String 

If Not mbolCachelnitialized Then Call ResetCache 
Text - mstrText 

End Property 

Public Property Get Words (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 

Dim IngStart As Long 
Dim IngEnd As Long 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Or LastWord = FirstWord Then 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

Words = mstrWordCache (FirstWord) 

Else 
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If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

IngStart = mlngFirstCharCache (FirstWord) + 1 

IngEnd = mlngLastCharCache (LastWord) + 1 

Words = Mid$ (mstrText, IngStart, IngEnd - IngStart) 

End If 

End Property 

Public Property Let Words (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal NewText As String) 
Dim mswRange As Word. Range 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord - FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Set mswRange = Range (FirstWord, LastWord, True, True) 
If Not (Trim$ (NewText) = "") Then 
NewText = Trim$ {NewText} 

If ShouldContainSpace (NewText , Words (LastWord + 1)) Then NewText = NewText & " " 

If ShouldContainSpace (Words (FirstWord - 1), NewText) = True Then NewText = " " & NewText 

End If 

mswRange = NewText 
mbolCachelnitialized = False 

End Property 

Public Property Get Format tedWords (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Word. Range 
If Not mbolCachelnitialized Then Call ResetCache 
ilJLastWord = 0 Then LastWord = FirstWord 

I.ff --FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
S§d Format tedWords - Range (FirstWord, LastWord) .FormattedText 
End P^lperty 

PubliM ^Property Let FormattedWords (ByVal FirstWord As Long, Optional ByVal LastWord As Long, _ 
ByVa^ri^ormattedText As Word. Range) 

Dim mswRange As Word. Range 

{f.Not mbolCachelnitialized Then Call ResetCache 
fit LastWord - 0 Then LastWord = FirstWord 

if. FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

ShouldContainSpace (FormattedText, Words (LastWord + 1)) Then FormattedText = FormattedText & " " 
IfL FirstWord > 1 Then 

r .l" Set mswRange = mmswDocument . Range {mlngLastCharCache (FirstWord -1) - 1, mlngFirstCharCache (LastWord + 1) - 1) 
O If ShouldContainSpace (Words {FirstWord - 1), FormattedText) - True Then FormattedText = " " & FormattedText 
Else 

Set mswRange = mmswDocument .Range (mlngFirstCharCache (FirstWord) - 1, mlngFirstCharCache (LastWord + 1) - 1) 
End If 

mswRange. FormattedText = FormattedText 
mbolCachelnitialized = False 

End Property 

Public Property Get WordsTrim( ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 
Dim i As Long 



If Not mbolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord = 0 Or LastWord = FirstWord Then 

WordsTrim = mstrWordTrimCac he (FirstWord) 

Else 

If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
If mstrWordTrimCache (FirstWord) = "" Then Exit Property 

For i = Fi rstWord To LastWord 

WordsTrim = WordsTrim & mstrWordTrimCache ( i) 
Next i 

End If 

End Property 

Public Function IsPlaceholder (ByVal WordNumber As Long) As Boolean 
Dim strWord 

Dim strFirstChar As String * 1 
Dim i As Long 
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If Hot mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber > mlngCount Then Exit Function 

strWord = mstrWordCache (WordNumber) 

If Len( strWord) = 1 Then 

If strWord = Then 

IsPlaceholder = True 

Exit Function 
End If 

Else 

strFirstChar = Left$ (strWord, 1) 

If strFirstChar = ■_" _ 

Or strFirstChar = "-" __ 

Or strFirstChar = "x" _ 

Or strFirstChar = "X" Then 

IsPlaceholder = True 

For i = 2 To Len( strWord) 

If Mi d$ (strWord, i, 1) <> strFirstChar Then 
IsPlaceholder = False 
Exit Function 
End If 
Next i 

End If 
End If 

End Function 

Public Function IsNumber (ByVal WordNumber As Long, ByVal IncludePlaceholders As Boolean) As Bool 

I J. .Not mbolCachelnitialized Then Call ResetCache 
lICIWordNumber < 1 Or WordNumber > mlngCount Then Exit Function 

r^-IsNumeric (mstrWordCache (WordNumber} } Then 
\s IsNumber = True 

Else- If IncludePlaceholders = True Then 
"%i If IsPlaceholder (WordNumber) Then IsNumber = True 
EM if 

End function 

Publ 41 1 Property Get FirstChar (ByVal WordNumber As Long) As Long 

^fsNot mbolCachelnitialized Then Call ResetCache 

£f WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

IpLSrstChar = mlngFir stChar Cache (WordNumber ) 

End ftjbperty 

Publ is? Property Get Las tChar (ByVal WordNumber As Long) 

%f Not mbolCachelnitialized Then Call ResetCache 

ISi WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

ifc#stChar ~ mlngLastChar Cache (WordNumber) 

End Property 

Public Property Get SpacesAf terWord (WordNumber As Long) As Long 

If Not mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber >= mlngCount Then Exit Property 

SpacesAf terWord = mlngFir stChar Cache (WordNumber + 1) - mlngLastCharCache (WordNumber) 
End Property 

Public Property Get PriorFullWord ( ByVal WordNumber As Long) As Long 
Dim i As Long 



If Not mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

For i ~ WordNumber - 1 To 1 Step -1 

If mstrWordTrimCache { i) <> " " Then 
PriorFullWord = i 
Exit Property 
Elself IsPlaceholder (i) Then 
PriorFullWord = i 
Exit Property 
End If 
Next i 

End Property 

Public Property Get NextFullWord (ByVal WordNumber As Long) As Long 



Dim i As Long 
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If Not mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

For i = WordNumber + 1 To mlngCount 

If mstrWordTrimCache (i) <> "" Then 
NextFullWord = i 
Exit Property 
Elseif IsPlaceholder (i) Then 
NextFullWord - i 
Exit Property 
End If 
Next i 

NextFullWord = mlngCount + 1 
End Property 

Public Property Get Bold(ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Bold = Range (FirstWord, LastWord) .Bold 
End Property 

Public Property Let Bold{ByVal FirstWord As Long, Optional ByVal LastWord As Long, Bold As Variant) 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range (FirstWord, LastWord) .Bold = Bold 
End Property 

Public Property Get Highlight (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 
Dlbcf mswFont As Word . Font 

1%-jNot mbolCachelnitialized Then Call ResetCache 
If =LastWord = 0 Then LastWord = FirstWord 

IiNFirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

#et mswFont = Range (FirstWord, LastWord) .Font 

mswFont .Color = wdColorRed Then 
kl~ Highlight = True 

Eiself mswFont . Color = wdColorAutomatic Then 
'^P Highlight = False 
End If 

End £££&perty 

Public Property Let Highlight (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal Highlight As Variant) 
Mm mswFont As Word . Font 



Not mbolCachelnitialized Then Call ResetCache 
|J_ LastWord = 0 Then LastWord = FirstWord 

tr FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Set mswFont = Range (FirstWord, LastWord) .Font 

If Highlight = True Then 

mswFont .Color = wdColorRed 
Elseif Highlight = False Then 

mswFont . Color = wdColorAutomatic 
End If 

End Property 

Public Property Get Italic (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Italic = Range (FirstWord, LastWord) . Italic 
End Property 

Public Property Let italic (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal Italic As Variant) 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range (FirstWord, LastWord) . Italic = Italic 
End Property 

Public Property Get Underline (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
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Underline = Range (Firs tWord, Las tWord) .Underline 
End Property 

Public Property Let Underline {By Val FirstWord As Long, Optional ByVal LastWord As Long, ByVal Underline As Variant) 

If Not mbolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range (FirstWord, LastWord) . Underline = Underline 
End Property 

Public Sub Delete (ByVal FirstWord As Long, Optional ByVal LastWord As Long) 

Dim bollnsertspace As Boolean 
Dim mswRange As Range 



If Not mbolCachelnitialized Then Call ResetCache 
If FirstWord < 1 Or FirstWord > mlngCount Then Exit Sub 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Sub 

If Shoul dCont a inSpace{ Words (FirstWord - 1) , Words (LastWord + 1) ) = True Then bollnsertspace = True 

Set mswRange = Range (FirstWord, LastWord, True, True) 
If bollnsertspace = True Then 
mswRange . Text = " " 

Else 

mswRange . Delete 
End If 

mbolCachelnitialized = False 
End Sub 

Public Sub Insert (ByVal InsertBef oreWord As Long, ByVal TextTolnsert As Variant) 
DaaJ mswRange As Word. Range 

IflkjNot mbolCachelnitialized Then Call ResetCache 

If ^InsertBef or eWord < 1 Or InsertBef oreWord > mlngCount + 1 Then Exit Sub 
55? Insert Be foreword ~ 1 Then 

5f2 Set mswRange = mmswDocument . Range (Start :=0, End:=0) 
^Lself InsertBef oreWord = mlngCount + 1 Then 

\* Set mswRange = mmswDocument .Range (mlngLastCharCache (Insert Be foreword 
pj mswRange, Co 11 apse 

4p Set mswRange = mmswDocument . Range (mlngLastCharCache { InsertBef oreWord 
End If 

fffNot Trim (TextTolnsert) = "" Then 
r 7r s TextTolnsert = Trim (TextTolnsert) 
h|| if ShouldContainSpace (Words (InsertBef oreWord - I), TextTolnsert) = True Then TextTolnsert = " " & TextTolnsert 

If Shoul dContainSpace (TextTolnsert, Words (InsertBef oreWord) ) Then TextTolnsert = TextTolnsert & " " 
ksh If 

TypeOf TextTolnsert Is Range Then 
11} mswRange. Forma ttedT ex t = TextTolnsert 
EYse 

f*'- mswRange = TextTolnsert 
End If 

mbolCachelnitialized = False 
End Sub 

Public Function Range (ByVal FirstWord As Long, Optional ByVal LastWord As Long, _ 

Optional ByVal IncludeLeadingSpaces As Boolean = False, Optional ByVal IncludeTrailingSpace As Boolean = False) _ 
As Word. Range 

Dim IngStartChar As Long 
Dim IngEndChar As Long 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 
If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Function 

If IncludeLeadingSpaces = True And FirstWord > 1 Then 
IngStartChar = mlngLastCharCache (FirstWord - 1) 

Else 

IngStartChar = mlngFirstCharCache (FirstWord) 
End If 

If IncludeTrailingSpace ~ True And LastWord < mlngCount Then 
IngEndChar = mlngFirstCharCache (LastWord + 1) 

Else 

IngEndChar = mlngLastCharCache (LastWord) 
End If 

Set Range = mmswDocument .Range (IngStartChar, IngEndChar) 
End Function 

Private Function ShouldContainSpace (ByVal FirstPhrase As Variant, ByVal SecondPhrase As Variant) As Boolean 



- 1) +1, mlngLastCharCache (InsertBef oreWord - 1) + 1) 

- 1), mlngFirstCharCache (InsertBef oreWord) ) 



Dim strNextChar As String * 1 
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Dim strLastChar As String * 1 



If Not mbolCachelnitialized Then Call ResetCache 
FirstPhrase = Trim$ (FirstPhrase) 
SecondPhrase = Trim$ (SecondPhrase) 

If FirstPhrase = "" Or SecondPhrase = Then 
ShouldContainSpace = False 

Else 

strLastChar = Right$ (FirstPhrase, 1) 
strNextChar = Left$ (SecondPhrase, 1) 

If strLastChar <> "(" _ 



And 


StrLastChar 


<> 






And 


strNextChar 


<> 


")" 




And 


strNextChar 


<> 


"] " 




And 


strNextChar 


<> 






And 


strNextChar 


<:> 






And 


strNextChar 


<> 






And 


strNex tChar 


<> 






And 


strNextChar 


<> 




Then 




ShouldContainSpace 


= True 


End 


If 









End If 
End Function 
Friend Sub ResetCacheO 

If mmswDocument . Range <> mstrText Then 

mlngCount = mmswDocument . Characters . Count 
ReDim mstrWordCache (1 To mlngCount) 
ReDim mstiWordTrimCached To mlngCount) 
ReDim mlngFirstCharCached To mlngCount) 
ReDim mlngLastCharCache (1 To mlngCount) 
mstrText = mmswDocument . Range 
Call CacheWords 

E$fi| If 

mBolCachelnitialized = True 
End S41S 

Private Sub CacheWords () 

ftp 3 

i As Long 
Dim IngChar As Long 
e||i IngNextChar As Long 
Etim IngWordNumber As Long 
0fm strChar As String * 1 
Dim strNextChar As String * 1 
Qjm bolStopWord As Boolean 

IngCharType As Long 
Elm IngNextChar Type As Long 

|5i$ft IngTextLength. As Long 
BiSn strWord As String 

k,OXist ALPHANUMERIC As Long = 1 
Sghst STOPPUNCTUATION As Long = 2 
gqnst CONTINUEPUNCTUATION As Long = 3 
fiBhst SPACE As Long = 4 



IngWordNumber = 1 
IngTextLength = Len (mstrText) 

strNextChar = Mid$ (mstrText, 1, 1) 
IngNextChar = Asc (strNextChar) 
Select Case IngNextChar 

Case 48 To 57, 65 To 90, 97 To 122, 192 To 246, 248 To 255 ' Letters, including foreign letters. 

IngNextCharType = ALPHANUMERIC 
Case 45, 95 ' Underscore or hyphen 

IngNextCharType = CONTINUEPUNCTUATION 
Case 32 

IngNextCharType = SPACE 
Case Else 

IngNextCharType = STOPPUNCTUATION 
End Select 

For i = 1 To ] ngTextLength 

strChar = strNextChar 
IngChar = IngNextChar 
IngCharType = IngNextCharType 

strNextChar = Mid$ (mstrText , i + 1, 1) 
IngNextChar = Asc (strNextChar) 
Select Case IngNextChar 

Case 48 To 57, 65 To 90, 97 To 122, 192 To 246, 248 To 255 

IngNextCharType = ALPHANUMERIC 
Case 45, 95 

IngNextCharType - CONTINUEPUNCTUATION 
Case 32 

IngNextCharType * SPACE 
Case Else 

IngNextCharType = STOPPUNCTUATION 
End Select 



Letters, including foreign letters. 
Underscore or hyphen 
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Select Case IngCharType 
Case ALPHANUMERIC 

■-- W ?f this' character'^ alphanumeric, then continue the word if the next character is also alphanuemric . 
If IngNextCharType = ALPHANUMERIC Then 
bolStopWord = False 

Else 

bolStopWord = True 
End If 

Case CONTINUEPUNCTUATION 

■--^fthifcharfctefis^" ■continue punctuation" (a hyphen or an underscore,, then continue the word if the next 

character is identical to this character. 
If IngNextChar = IngChar Then 

bolStopWord = False 

Else 

bolStopWord = True 
End If 

^.f^Jf^^^^t^ iB a „ stop punc tuation" (any other type of punctuation), then stop the word. 
strWord = strWord & strChar 
bolStopWord = True 
• — If this character is a space, do nothing. 
End Select 

If bolStopWord = True Or i = IngTextLength Then 

mstrWordCache(lngWordNumber) = strWord T r,, fl ^^ rM nr^ 

If IngCharType = ALPHANUMERIC Then mstrWordTriraCache ( IngWordNuraber ) = LCase$ (strWord) 

mlngLastCharCacheUngWordNumber) = i 

mlngFirstCharCache(lngWordNumber) = i - Len( strWord) 

IngWordNumber = IngWordNumber + 1 

bolStopWord = False 

strWord = "" 

End If 

Next i 

itfiBgCount - IngWordNumber - 1 
ReBira. Preserve mstrWordCache (1 To mlngCount) 
R&im Preserve mstrWordTrimCache {1 To mlngCount) 
ReBim Preserve mlngFirstCharCache (1 To mlngCount) 
ReBim Preserve mlngLastCharCache ( 1 To mlngCount) 
W 

End Suf 

Public; Sub ScoreResetO 

Re&im mlngScored To mlngCount) 
End ff|> 

Publi^C Property Get Score (WordNumber As Long) As Long 

IE WordNumber > 0 And WordNumber <= mlngCount Then Score = mlngScore (WordNumber) 

End Property 

PublW Property Let Score (WordNumber As Long, Source As Long) 

f|| WordNumber > 0 And WordNumber <- mlngCount Then mlngScore (WordNumber) = Source 
End Property 

Public Function ScoreBest (Optional MinimumScore As Long) As Long 
£?&a. i As Long 

Jrrm IngHighestScore As Long 

IngHighest Score = MinimumScore - 1 
For i = 1 To mlngCount 

If mlngScored) > IngHighestScore Then 
IngHighestScore = mlngScored) 
ScoreBest = i 
End If 
Next i 



End Function 
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■ — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 
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■ — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public gbcActiveDoc As cDocument 
Public ClausesCount As Long 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private Const SPACE As Long = 32 

Public Function Super Trim(ByVal Source As String) As String 
Dim i As Long 

Dim strCharacter As String * 1 
Dim strTrimmedString As String 
Dim IngAscCharacter As Long 

Source = LCase (Source) 
For i = 1 To Len{ Source) 

strCharacter = Mid$ (Source, i, 1) 

IngAscCharacter = Asc ( strCharacter) 

If (IngAscCharacter >= 48 And IngAscCharacter <= 57) 

Or (IngAscCharacter >= 97 And IngAscCharacter <= 122) _ 
Or (IngAscCharacter >= 192 And IngAscCharacter <= 246) _ 
Or (IngAscCharacter >= 248 And IngAscCharacter <= 255) _ 
Then strTrimmedString = strTrimmedString & strCharacter 

If IngAscCharacter =38 Then strTrimmedString = strTrimmedString & "and" 

Next i 

SuperTrim = strTrimmedString 
End Function 

Public Function ExistslnCollection ( Item As Variant, Collection As Collection) As Boolean 
Dim varltem As Variant 



For Each varltem In Collection 

?sa , If rtem = varltem Then 

LJ ExistslnCollection = True 

^ Exit Function 

% { End If 
N&jjt varltem 

End Function 

Publics s Function AddArticle (Source As String) As String 

Returns a string containing the original string, preceeded with its correct indefinite article ("a" or "an"). 
D^m strChar As String 



ftrChar = LCase (Left$ (Source, 1)) 
|£|Lect Case strChar 
* s ; Case "a", "e" , "i" , "o", "u" 
lis AddArticle = "an " & Source 

f~\ Case Else 

™ AddArticle = "a M & Source 

Isid Select 

End lection 



cTimer - 1 

1 — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private Declare Function timeGetTime Lib "winmm.dll" {} As Long 

Private mlngStartTimer As Long 
Private mstr Identifier As String 
Private mlngRepetitions As Long 

Public Sub Start-Timer (Repetitions As Long, Optional ByVal Identifier As String) 

mlngRepetitions - Repetitions 
mstrldentif ier = Identifier 
Debug. Print vbCrLf & "Starting timer...." 
mlngStartTimer = timeGetTime 

End Sub 

Public Sub EndTimerO 

Dim sngEndTimer As Long 
Dim sngSeconds As Single 
Dim sngLengthPerRep As Single 
Dim dbRepsPerSec As Single 



sngEndTimer = timeGetTime 

sngSeconds = {sngEndTimer - mlngStartTimer) / 1000 
sngLengthPerRep = sngSeconds / mlngRepetitions 

Debug. Print "Ending timer...." & vbCrLf 

If mstrldentif ier <> , '" Then Debug. Print "Identifier: 

Debug. Print "Elapsed seconds: " & sngSeconds 



& mstrldentif ier 



If sngLengthPerRep > 0 Then 

dbRepsPerSec = Round (mlngRepetitions / sngSeconds, 1) 



If sngLengthPerRep > 1 Then 
fl sngLengthPerRep = Round ( sngLengthPerRep , 2) 

7~ Debug. Print "Length per repetition: " & sngLengthPerRep & " seconds" 
tfl Debug. Print "Repetitions per second: " & dbRepsPerSec 

MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: 
epetitMon: " & sngLengthPerRep & " seconds" & vbCrLf & vbCrLf & "Repetitions per second: " & 
\l Elself sngLengthPerRep > 0.001 Then 

sngLengthPerRep = Round ( sngLengthPerRep , 4) * 1000 _ 
10 Debug. Print "Length per repetition: " & sngLengthPerRep & " miliseconds. 

r." Debug. Print "Repetitions per second: " & dbRepsPerSec 

MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: 
epetftlon: " & sngLengthPerRep & " miliseconds" & vbCrLf & vbCrLf & "Repetitions per second: 



Sc sngSeconds & vbCrLf & vbCrLf & "Length per 
dbRepsPerSec, vblnformation, "Timer result." 



& sngSeconds & vbCrLf & vbCrLf & "Length per r 
" & dbRepsPerSec, vblnformation, "Timer result 



£ Elself sngSeconds <> 0 Then 

"" sngLengthPerRep = Round ( sngLengthPerRep , 7} * 1000000 

5 Debug. Print "Length per repetition: " & sngLengthPerRep & " microseconds." 

Debug. Print "Repetitions per second: " & dbRepsPerSec „w^t * c 

MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: " & sngSeconds a vbCrLf fc vbCrLf fc 
fsngLeng?hPerRep & " microseconds" & vbCrLf & vbCrLf & "Repetitions per second: " & dbRepsPerSec, vblnformation, 



epetftion 

t." Yxl 



■Length per r 
"Timer resul 



End If 



Else 

Debug. Print "Length per repetition: N/A. " 
Debug. Print "Repetitions per second: N/A. " 
jhis MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf 
it ion: N/A" & vbCrLf & vbCrLf & "Repetitions per second: N/A 
End If 



& "Elapsed seconds: Less than one" & vbCrLf & vbCrLf & 
vblnformation, "Timer result." 



"Length per repet 



End Sub 
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'-- Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mstrFullName As String 

Private mstrAbrvName As String 

Private mstrFullNameTrim As String 

Private mstrAbrvNameTrim As String 

Private mlngYearStart As Long 

Private mlngYearEnd As Long 

Private mbcParent As cJurisdiction 

Private mbolJurisdictionlmplicit As Boolean 

Private mbcCourtGroup As cCourtGroup 

Public Score As Long 



'Private Sub Class_Initialize 0 

ObjectsCount = ObjectsCount + 1 

Debug. Print "Court created. Total: " & ObjectsCount 
■End Sub 

'Private Sub Class_Terminate { ) 

ObjectsCount = ObjectsCount - 1 

Debug. Print "Court destroyed. Total: " & ObjectsCount 
■End Sub 

Public Property Get FullName {) As String 

FullName = mstrFullName 
End Property 

Friend Property Let FullName (By Val Source As String) 

mstrFullName = Source 

mstrFullNameTrim = SuperTrim( Source) 
End Property 

Publ ifcProperty Get AbrvNameO As String 

A^vName = mstrAbrvName 
End Property 

FrienUjProperty Let AbrvName (ByVal Source As String) 

mafrAbrvName = Source 

4|frAbrvNameTrim = SuperTrim (Source) 
End property 

Publil^ Property Get FullNameTrim( ) As String 

pfijlNairieTrim = mstrFullNameTrim 
End Kpperty 

Publrb Property Get AbrvNameTrim( ) As String 

jprvNameTrim = mstrAbrvNameTrim 
End property 

Public^ Property Get YearStartO As Long 

tiirStart = mlngYearStart 
End Property 

Frieda! Property Let Year St art (By Val Source As Long) 

MlngYearStart = Source 
End jhstoperty 

Public Property Get YearEndO As Long 

YearEnd = mlngYearEnd 
End Property 

Friend Property Let YearEnd (ByVal Source As Long) 

mlngYearEnd = Source 
End Property 

Public Property Get Parent () As cJurisdiction 

Set Parent = mbcParent 
End Property 

Friend Property Set Parent (Source As cJurisdiction) 

Set mbcParent = Source 
End Property 

Public Property Get Jurisdictionlmplicit ( ) As Boolean 

Jurisdictionlmplicit = mbolJurisdictionlmplicit 
End Property 

Friend Property Let Jurisdictionlmplicit (ByVal Source As Boolean) 

mbolJurisdictionlmplicit = Source 
End Property 

Public Function lmplicitJurisdiction{ ) As cJurisdiction 

If mbolJurisdictionlmplicit Then 

Set ImplicitJurisdiction = Me. Parent 

End If 
End Function 

Friend Property Set CourtGroup (Source As cCourtGroup) 

Set mbcCourtGroup = Source 
End Property 

Public Property Get CourtGroup () As cCourtGroup 
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Set CourtGroup = mbc Court Group 
End Property- 
Public Function Reporters ( ) As cReporters 

Set Reporters = mbc Court Group. Reporters 
End Function 

Public Function ParallelReporters ( ) As Collection 

Set ParallelReporters = mbcCourtGroup . ParallelReporters 
End Function 

Public Function NonParallelReporters < ) As Collection 

Set NonParallelReporters = mbcCourtGroup .NonParallelReporters 
End Function 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mbcReporters As cReporters 
Private mcolParallelReporters As Collection^ 
Private mcolNonParallelReporters As Collection 
Private mbcParent As cJurisdiction 

Private mstrFullName As String 

Private Sub Class_Initialize ( } 

Set mbcReporters = New cReporters 

Set mcolParallelReporters = New Collection 

Set mcolNonParallelReporters = New Collection 

ObjectsCount = ObjectsCount + 1 

Debug. Print "Court Group created. Total: " & ObjectsCount 
End Sub 

'Private Sub Class_Terminate ( ) 

ObjectsCount = ObjectsCount - 1 

Debug. Print "Court Group destroyed. Total: " & ObjectsCount 
'End Sub 

Public Property Get Reporters {) As cReporters 

Set Reporters = mbcReporters 
End Property 

Friend Property Set Reporters (Source As cReporters) 

Set mbcReporters = Source 
End Property 

Public Property Get ParallelReporters ( ) As Collection 

S&t ParallelReporters = mcolParallelReporters 
End P|£aperty 

Frienferoperty Set ParallelReporters (Source As Collection) 

Sfcjjj mcolParallelReporters = Source 
End Property 

Public^ Property Get NonParallelReporters ( ) As Collection 

Mi NonParallelReporters = mcolNonParallelReporters 
End Brjgperty 

FrieijS! Property Set NonParallelReporters (Source As Collection) 

sip mcolNonParallelReporters = Source 
End Property 

Publrb Property Get Parent ( ) As cJurisdiction 

g£k Parent = mbcParent 
End SfOperty 

Frieids Property Set Parent { Source As cJurisdiction) 

Set mbcParent = Source 
End Property 

Public^ Property Get FullNameO As String 

faklName = mstrFullName 
End Property 

Friend Property Let FullName (ByVal Source As String) 

mstrFullName = Source 
End Property 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolCourts As Collection 

Private mbcFuzzyCollection As cFuzzyCollection 

Friend Property Get FuzzyCollection{ ) As cFuzzyCollection 

Set FuzzyCollection = mbcFuzzyCollection 
End Property 

Private Sub Class__Initialize ( ) 

Set mcolCourts = New Collection 

Set mbcFuzzyCollection = New cFuzzyCollection 

End Sub 

Public Sub ScoreResetO 

Dim bcCourt As cCourt 

For Each bcCourt In mcolCourts 

bcCourt .Score = 0 
Next bcCourt 

End Sub 

Public Function ScoreBestO As cCourt 

Dim bcCourt As cCourt 
Dim IngBestScore As Long 

For Each bcCourt In mcolCourts 

If bcCourt . Score > IngBestScore Then 
Set ScoreBest = bcCourt 
IngBestScore = bcCourt . Score 
End If 
Nejct bcCourt 

End Function 

Publi^SFunction ScoresBest (Optional MinimumScore As Long, Optional Deviance As Long) As Collection 

rSai bcCourt As cCourt 
Dim IngBestScore As Long 
I$M IngMinimum As Long 

iel Each bcCourt In mcolCourts 

Tls If bcCourt. Score > IngBestScore Then IngBestScore = bcCourt . Score 
iJ^xt bcCourt 

fngMinimum = IngBestScore - Deviance _ _ . 

i£\ MinimumScore > 0 And IngMinimum < MinimumScore Then IngMinimum = MinimumScore 

ibi ScoresBest = New Collection 
ill IngBestScore >= IngMinimum Then 

For Each bcCourt In mcolCourts 
5. 3 If bcCourt. Score >= IngMinimum Then ScoresBest .Add bcCourt 

Next bcCourt 

If 

End function 

Friend Sub Add (Court As cCourt, Aliases As Variant) 

Dim varAlias As Variant 
Dim strAliasTrim As String 



With Court 

mcolCourts. Add Court 

mbcFuzzyCollection. Add Court, . AbrvNameTrim 

If .AbrvNameTrim <> . FullNameTrim Then mbcFuzzyCollection. Add Court , . FullNameTnm 
End With 

For Each varAlias In Aliases ± should be supplie d as trimmed. 

X^or^rAlIaf ^superTrimUtrAliasTrim)) Then Stop - For debugging only. Delete later. 

mbcFuzzyCollection. Add Court, strAliasTrim 
Next varAlias 

End Sub 

Public Function Item(Key As String, MatchExactAlias As Boolean. MatchSimilarAlias As Boolean, Optional YearToMatch As Long, Optional KeylsT 
rimmed As Boolean = False) As cCourt 

Dim strKeyTrim As String 

Dim bcCourt As cCourt 

Dim colMatches As Collection 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = Super Trim (Key) 
End If 



If MatchExactAlias = False And MatchSimilarAlias = False Then 
Set colMatches - New Collection 
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For Each bcCourt In mcolCourts 

If strKeyTrim = bcCourt . AbrvNameTrim Then colMatches .Add bcCourt 
Next bcCourt 

Else 

Set colMatches - mbcPuzzyCol lection. Exact Items (strKeyTrim) 

If MatchSirailar Alias = True Then If colMatches . Count = 0 Then Set colMatches = mbcFuzzyCollection. Similarltems (strKeyTrim) 
End If 

If colMatches . Count > 0 Then 

' — Assume that the first match is correct. 
Set Item = colMatches (1) 

' If there are multiple matches and a year to match is suppplied, then search for a matching court with the 

correct year. 
If colMatches. Count > 1 And YearToMatch > 0 Then 
For Each bcCourt In colMatches 

If bcCourt. YearStart <= YearToMatch And bcCourt . Year End >= YearToMatch Then 
Set Item = bcCourt 
Exit For 
End If 
Next bcCourt 
End If 
End If 

End Function 

Public Function Items (Key As String, MatchSimilarFuzzyCollection As Boolean, Optional KeylsTrimmed As Boolean = False) As Collection 

Dim strKeyTrim As String 
Dim bcCourt As cCourt 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

Set Items = mbcFuzzyCollection . Exact I terns (strKeyTrim) 
If MatchSimilarFuzzyCollection = True Then 

t*% If Items. Count = 0 Then Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 

48 if 

End Function 

Public | Function Count () As Long 

Cgjjnt = mcolCourts . Count 
End faction 

Pub Function NewEnumO As IUnknown 

Sfet NewEnum = mcolCourts. [_NewEnum] 
End Miction 
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■ — Copyright 2001 by Robert L. Jacob-son. 



Option Explicit 

Private mobj Items {) As Object 
Private mstrKeysO As String 
Private mintArrayStart ( ) As Integer 
Private mintArrayEnd { ) As Integer 
Private mlngCount As Long 
Private mlngArraySize As Long 
Private mbollnitialized As Boolean 

Private Const INCREASE_PERCENT As Long =0.1 
Private Const INCREASE_MIN As Long = 10 
Private Const BUCKETS As Long =128 

Friend Sub Add (Item As Object, Key As String) 

Dim Inglncrease As Long 



If the array is full, then resize the array to make room for the new entry. 
If mlngCount = mlngAr ray Size Then 

Inglncrease - mlngArraySize * INCRE AS E_PERC ENT 

If Inglncrease < INCREASE_MIN Then Inglncrease = INCREASE_MIN 

mlngArraySize = mlngArraySize + Inglncrease 

ReDim Preserve mobj Items (1 To mlngArraySize) 

ReDim Preserve mstrKeys (1 To mlngArraySize) 
End If 

'-- Add the new item. 
mlngCount = mlngCount + 1 
Set mobj Items {mlngCount) = Item 
mstrKeys (mlngCount) = Key 

mbollnitialized = False 

End Sub 

FrienfTFunction Exactltem< Source As String) As Object 

*%3 Look for an item that has a key that matches exactly. 

Ditl i As Long 

D&dj IngValue As Long 



Ef .Not mbollnitialized Then Call Initialize 
3llgValue = AsciiValue (Source) 

M£ i = mintArrayStart (IngValue) To mintArrayEnd ( IngValue ) 
J|! If Source = mstrKeysfi) Then 

Set Exactltem = mobj Items (i) 
~ Exit Function 

End If 
llsxt i 

End Faction 

Friend, Function Exactltems (Source As String) As Collection 

&k Look for an item that has a key that matches exactly. 

Ip&fci i As Long 

Dim IngValue As Long 



Set Exactltems = New Collection 

If Not mbollnitialized Then Call Initialize 

IngValue = AsciiValue (Source) 

For i = mintArrayStart { IngValue ) To mintArrayEnd (IngValue) 

If Source = mstrKeysd) Then 
Exactltems. Add mobjltems(i) 

End If 
Next i 

End Function 

Friend Function Similar I terns (Source As String) As Collection 

■ — Search for an item with a similar key. 

Dim i As Long 

Dim IngValue As Long 

Dim IngSourceLength As Long 

Set Similarltems = New Collection 

If Not mbollnitialized Then Call Initialise 

IngSourceLength = Len( Source) 

If IngSourceLength > 1 Then 

IngValue = AsciiValue (Source) 

For i = mintArrayStart (IngValue) To mintArrayEnd (IngValue) 
Select Case Len (mstrKeys (i) ) 
Case Is > 2 

If Abs ( IngSourceLength - Len (mstrKeys d) ) ) < 2 Then 

If EditDistanceMaxOne (mstrKeys (i) , Source) = 1 Then 
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Similar I terns. Add mobj Items (i) 
End If 
End If 



Case Is = 2 

If IngSourceLength = 3 Then 

If EditDistanceMaxOne (mstrKeys (i) , Source) = 1 Then 

Similar I terns. Add mobj Items { i) 
End If 
End If 

End Select 

Next i 
End If 

End Function 

Friend Sub Initialize () 

Call SortValues 

Call CreateForwardStar 

mbollnitialized = True 

End Sub 

Private Sub SortValues {) 

•— Sort the items by key value using a modified countingsort . 



Dim i As Long 

Dim IngValue As Long 

Dim IngCountsO As Long 

Dim IngNextPositionO As Long 

Dim IngPosition As Long 

Dim strSortedKeys ( ) As String 

Dim objSortedltemsO As Object 

Initialize the counts to 0. 
K^gim lngCounts(0 To BUCKETS) 
R^Kim lngNextPosition(0 To BUCKETS) 

'V| Count the values. 
Fo"f i = 1 To mlngCount 

\l IngValue = AsciiValue {mstrKeys (i) ) 

3 « IngCounts ( IngValue) = IngCounts (IngValue) + 1 
liJxt i 

Determine the correct starting position for each value. 
iijgPosition = 1 
F&r i = 0 To BUCKETS 

IngNextPosition(i) = IngPosition 

IngPosition = IngPosition + IngCounts (i) 
Kfext i 

Zrr Build a new array with the items in their correct positions. 

fllim strSortedKeys (1 To mlngCount) 

Rebim obj Sorted I terns (1 To mlngCount) 

i©Jr i = 1 To mlngCount 

s. : IngValue = AsciiValue {mstrKeys (i) ) 

IngPosition = IngNextPos it ion { IngValue) 
fl If Not strSortedKeys (IngPosition) = vbNullString Then Err. Raise 1000 — Check for error. 

strSortedKeys (IngPosition) = mstrKeys (i) 
M Set obj Sortedltems (IngPosition) = mobjltems(i) 

IngNextPos it ion ( IngValue) = lngNextPosition( IngValue) + 1 
Next i 

'— Assingn the new sorted arrays as the main module arrays. 
mstrKeys = strSortedKeys 
mobj I terns = obj Sortedltems 
mlngArraySize - mlngCount 

End Sub 

Private Sub CreateForwardStar ( ) 

Build a forward star data structure by locating the first and last items containg this first letter 



Dim i As Long 

Dim IngValue As Long 



ReDim mintArrayStart(0 To buckets) 
ReDim mintArrayEnd(0 To BUCKETS) 

For i = 0 To BUCKETS 

mintArrayStart(i) - 0 

mintArrayEnd(i) = -1 
Next i 

For i = 1 To mlngCount 

IngValue = AsciiValue (mstrKeys (i) ) 

If mint Array St art (IngValue) = 0 Then min tArr ay S t ar t ( IngValue) = i 
mintArrayEnd ( IngValue) = i 
Next i 

End Sub 

Private Function AsciiValue (Source As String) As Long 

•-- Returns a value depending on the first letter of the source, or 0 if the source is an empty string. 
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If Source = vbNullString Then 
AsciiValue - 0 

Else 

AsciiValue = Asc (Source) Mod BUCKETS 
End If 

End Function 

Private Sub DebugPrintForwardStar ( ) 

Dim i As Long 

For i = 0 To BUCKETS 

Debug. Print i & " : " & mintArrayStart ( i) , mintArrayEnd ( i ) 
Next i 

End Sub 

Private Sub DebugPrint I terns (Value As Long} 
Dim i As Long 

For i = mintArrayStart (Value) To mintArrayEnd (Value) 

Debug -Print mstrKeys(i) 
Next i 

End Sub 

Private Function EditDistanceMaxOne (ByVal Source As String, ByVal Target As String) As Long 
Dim i As Long 

Dim IngFirstWrongChar As Long 
Dim IngLastWrongChar As Long 
Dim bytSourcet) As Byte 
Dim bytTargett) As Byte 
Dim IngSourceLen As Long 
Dim IngTargetLen As Long 
Dim IngOffset As Long 

ll^SourceLen = Len( Source) 
B&^TargetLen = Len( Target) 

'M Convert the strings to byte arrays. If one string is longer than the other, then pad the end of the shorter string with 
'sbs an extra space. 

M I IngSourceLen < IngTargetLen Then 
I i by t Source = Source & " " 

bytTarget = Target 
jyfl IngOffset = -2 

E^lelf IngSourceLen > IngTargetLen Then 
•jfez by t Source = Source 

bytTarget = Target & " " 
s IngOffset = 2 

2f! by t Source = Source 
Til bytTarget = Target 

tZ- Search forward from the start to determine the first error. 
For i = 0 To UBound( by t Source) Step 2 
f z \ If bytSource(i) <> bytTarget (i) Then 
^ IngFirstWrongChar = i 

fxz~ Exit For 

End If 
Next i 

' — Search backwards from the end to determine the last error. 
If IngSourceLen > IngTargetLen Then 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSource(i) <> bytTarget (i - IngOffset) Then 
IngLastWrongChar = i 
Exit For 
End If 
Next i 

El self IngSourceLen = IngTargetLen Then 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSourcet i) <> bytTarget (i) Then 
IngLastWrongChar = i 
Exit For 
End If 
Next i 

Else 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSource(i) <> bytTarget (i - IngOffset) Then 
IngLastWrongChar - i - IngOffset 
Exit For 
End If 
Next i 
End If 

■— Determine whether the first and last errors are at the same position. 
If IngFirstWrongChar >= IngLastWrongChar Then 

EditDistanceMaxOne = 1 
Elself IngFirstWrongChar = IngLastWrongChar - 2 Then t 

'— If the only problem is that two characters are transposed, treat that as a single edit count 

(even though the traditional edit distance function treats transposed characters as two edits) . 
If bytSourcet IngFirstWrongChar) = bytTarget (IngLastWrongChar) _ 
And by t Source (IngLastWrongChar) = bytTarget (IngFirstWrongChar) Then 
EditDistanceMaxOne = 1 

Else 
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EditDistanceMaxOne = 2 
End If 

Else 

EditDistanceMaxOne = 2 
End If 

End Function 
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■ — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mbcJurisdictions As cJurisdictions 

Public Property Get Jurisdictions { } As cJurisdictions 

If mbcJurisdictions Is Nothing Then Set mbcJurisdictions = New cJurisdictions 

Set Jurisdictions = mbcJurisdictions 
End Property 

Public Property Set Jurisdictions (Source As cJurisdiction) 

Set mbcJurisdictions = Source 
End Property 

Private Sub Class„Initialize ( ) 

Set mbcJurisdictions = gbc Jurisdictions 
End Sub 
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copyright 2001 by Robert L. Jacobson. 

Option Explicit 

Private mbcCourts As cCourts 
Private mcolCourtGroups As Collection 
Private mbcAllReporters As cReporters 
Private mstrFullName As String 
Private mstrAbrvName As String 
Private mstrFullNameTrim As String 
Private mstrAbrvNameTrim As String 
Public Score As Long 

Private Sub Class__lnitialize { ) 

Set mbcCourts - New cCourts 

Set mcolCourtGroups = New Collection 

Set mbcAllReporters = New cReporters 

ObjectsCount = ObjectsCount + 1 

Debug. Print "Jurisdiction created. Total: " & ObjectsCount 
End Sub 

■ Private Sub Class_Terminate ( ) 

ObjectsCount - ObjectsCount - 1 

Debug. Print "Jurisdiction destroyed. Total: 11 & ObjectsCount 
'End Sub 

Public Property Get Courts { ) As cCourts 

Set Courts = mbcCourts 
End Property 

Public Property Get AllReporters ( ) As cReporters 

Set AllReporters = mbcAllReporters 
End Property 

PubliplProperty Get FullNameO As String 

F\2lName = mstrFullName 
End PlUperty 

\,. i 

Friend* Property Let FullName (ByVal Source As String) 

mMrFullName = Source 

mstrFullNameTrim = Super Trim{ Source) 
End Hi>perty 

Public* Property Get FullNameTrim{ ) As String 

f""|lNameTrim = mstrFullNameTrim 
^pperty 

Public Property Get AbrvNameO As String 

AbrvName - mstrAbrvName 
End f*ff>perty 

Frief If Property Let AbrvName { ByVal Source As String) 

ift^rAbrvName = Source 

StitrAbrvNameTrim = SuperTrim< Source) 
End property 

Publf el Property Get AbrvNameTrim( ) As String 

jj&rvNameTrim = mstrAbrvNameTrim 
End jMoperty 

Public Property Get CourtGroups { ) As Collection 

Set CourtGroups = mcolCourtGroups 
End Property 
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Option Explicit 

Private mcolJurisdictions As Collection 
Private mcolAllCourtGroups As Collection 
Private mbcAHCourts As cCourts 
Private mbcAllReporters As cReporters 
Private mbcFuzzyColl ection As cFuzzyCol lection 



Private Sub Class_Initialize( ) 



Set mcolJurisdictions = New Collection 

Set mcolAllCourtGroups = New Collection 

Set mbcAHCourts = New cCourts 

Set mbcAllReporters = New cReporters 

Set mbcFuzzyCol lection = New cFuzzyCollection 

Call Populate Jurisdictions (Me} 
Call LoadReporters (Me) 

Debug. Print "Jurisdictions Initialize" 



End Sub 



Private Sub Class_Terminate O 



Debug. Print "Jurisdictions Terminate" 



End Sub 



Public Sub ScoreResetO 

Dim be Jurisdiction As cJurisdiction 

For Each be Jurisdiction In mcolJurisdictions 

be Jurisdiction. Score = 0 
Next bcJurisdiction 

End sj£§ 

PubliiiOFunction ScoreBestO As cJurisdiction 

d'M bcJurisdiction As cJurisdiction 
Dai IngBestScore As Long 

Each bcJurisdiction In mcolJurisdictions 
s'." If bcJurisdiction. Score > IngBestScore Then 
Set ScoreBest = bcJurisdiction 
IngBestScore = bcJurisdiction. Score 
End If 
E$|xt bcJurisdiction 

End gunction 

PublW Function ScoresBest (Optional MinimumScore As Long, Optional Deviance As Long) As Collects 

Mm bcJurisdiction As cJurisdiction 
eila IngBestScore As Long 
|)im IngMinimum As Long 

For Each bcJurisdiction In mcolJurisdictions 

Lib If bcJurisdiction. Score > IngBestScore Then IngBestScore = bcJurisdiction . Score 
Next bcJurisdiction 



IngMinimum = IngBestScore - Deviance 

If MinimumScore > 0 And IngMinimum < MinimumScore Then IngMinimum = MinimumScore 

Set ScoresBest = New Collection 
If IngBestScore >- IngMinimum Then 

For Each bcJurisdiction In mcolJurisdictions 

If bcJurisdiction. Score >= IngMinimum Then ScoresBest .Add bcJurisdiction 

Next bcJurisdiction 
End If 



End Function 



Public Property Get AllCourtGroups ( ) As Collection 

Set AllCourtGroups = mcolAllCourtGroups 
End Property 

Public Property Get AllCourtsO As cCourts 

Set AllCourts - mbcAllCourts 
End Property 

Public Property Get AllReporters ( ) As cReporters 

Set AllReporters = mbcAllReporters 
End Property 

Friend Sub Add (Jurisdiction As cJurisdiction, Aliases As Variant) 

Dim varAlias As Variant 
Dim strAliasTrim As String 



With Jurisdiction 

mcolJurisdictions. Add Jurisdiction, . FullNameTrim 
mbcFuzzyCol lection. Add Jurisdiction, . AbrvNameTrim 

If .AbrvNameTrim <> .FullNameTrim Then mbcFuzzyCol lection .Add Jurisdiction, .FullNameTrim 
End With 
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For Each varAlias In Aliases 

strAliasTrim = CStr (varAlias) 

If Not {varAlias = SuperTrim(strAliasTrim} } Then Stop 
mbcFuzzyCollection. Add Jurisdiction, strAliasTrim 
Next varAlias 

End Sub 

Friend Sub AddAlias (Jurisdiction As cJurisdiction, Alias As String) 

mbcFuzzyCol lection. Add Jurisdiction, Alias 
End Sub 

Public Function Exactltem(FullName As String) As cJurisdiction 

Set Exactltem = Item(FullName, True, False) 
End Function 

Public Function Item (Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCol lection As Boolean, Optional KeylsTrimmed As Bool« 
False) As cJurisdiction 

Dim strKeyTrim As String 
Dim colltems As Collection 
Dim bcReporter As cReporter 



If KeylsTrimmed Then 
StrKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

If MatchExactAlias Then Set Item = mbcFuzzyCollection. Exactltem (strKeyTrim) 
If Item Is Nothing And MatchSimilarFuzzyCollection = True Then 

Set colltems = mbcFuzzyCollection . Similarltems { strKeyTrim) 

If colltems. Count > 0 Then Set Item = colltems (1) 
E|§ If 

End Faction 

Public%unction Items (Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCollection As Boolean, Optional KeylsTrimmed 
Fals^J As Collection 

strKeyTrim As String 
]|im bcReporter As cReporter 

ffl KeylsTrimmed Then 
strKeyTrim = Key 

Else 

s strKeyTrim = SuperTrim(Key) 
p®. If 

f|j MatchExactAlias Then Set Items = mbcFuzzyCollection. Exact Items (strKeyTrim) 
|E MatchSimilarFuzzyCollection = True Then 
O If Items. Count = 0 Then 

r": Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 

* ss End If 
Eraa if 

End ^friction 

Public Function Index (Number As Integer) As cJurisdiction 

Set Index = mcol Jurisdictions (Number) 
End Function 

Public Function Count () As Long 

Count - mcolJur isdict ions . Count 
End Function 

Public Function NewEnumO As I Unknown 

Set NewEnum = mcol Jurisdictions . [_NewEnum] 

End Function 

'Public Sub Initialized 

Dim be Jurisdiction As cJurisdiction 
Dim bcCourtGroup As cCourtGroup 



For Each bcJurisdiction In mcolJur isdict ions 

For Each bcCourtGroup In bcJurisdiction. CourtGroups 

Call bcCourtGroup. Courts . FuzzyCollection. Initialize 
Call bcCourtGroup. Reporters .FuzzyCollection. Initialize 
Next bcCourtGroup 
Next bcJurisdiction 

Call mbcFuzzyCollection. Initialize 

Call mbcAllCourts . FuzzyCollection . Initialize 

Call mbcAHReporters . FuzzyCollection. Initialize 



/2? 

' — Aliases should be supplied as trimmed. 
For debugging only. Delete later. 



End Sub 
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Public Sub Cleanup () 

Dim be Jurisdiction As cJurisdiction 
Dim be Court Group As c Court Group 
Dim bcCourt As cCourt 
Dim bcReporter As cReporter 

Debug. Print "Jurisdictions Cleanup" 

For Each bcJurisdiction In mcolJurisdictions 

For Each bcCourtGroup In bcJurisdiction. CourtGroups 
Set bcCourtGroup. Parent = Nothing 
For Each bcReporter In bcCourtGroup. Reporters 

Set bcReporter . Parent = Nothing 
Next bcReporter 

Next bcCourtGroup 

For Each bcCourt In bcJurisdiction . Courts 

Set bcCourt . Parent = Nothing 
Next bcCourt 

Next bcJurisdiction 

Set mcolJurisdictions = Nothing 
Set mcolAHCourtGroups = Nothing 
Set mbcAHCourts = Nothing 
Set mbcAHReporters ~ Nothing 

End Sub 
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' — Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mcolEditors As Collection 

Private mlngKey As Long 

Private mlngVolume Start As Long 

Private mlngVolumeEnd As Long 

Private mlngYearStart As Long 

Private mlngYearEnd As Long 

Private mlngGroupCode As Long 

Private mbolJurisdictionlmplicit As Boolean 

Private mstrFullName As String 

Private mstrFullNameTrim As String 

Private mstrAbrvName As String 

Private mstrAbrvNameTrim As String 

Private mbcMainReporter As cReporter 

Private mlngMainReporterVolumeFirst As Long 

Private mbdmplicitCourt As cCourt 

Private mbc Parent As cCourtGroup 

Public Score As Long 

Public Property Get Editors O As Collection 

Set Editors = mcolEditors 
End Property 

Friend Property Get KeyO As String 

Key = "K" & mlngKey 
End Property 

Public Property Get MainReporter () As cReporter 

Set MainReporter = mbcMainReporter 
End Property 

Friend Property Set MainReporter (Source As cReporter) 

Set mbcMainReporter = Source 
End Property 

Public 5 ! Property Get MainReporterVolumeFirst ( ) As Long 

MainReporterVolumeFirst = mlngMainReporterVolumeFirst 
End pJefperty 

Friend! Property Let MainReporterVolumeFirst (Source As Long) 

HfeLagMainReporterVolumeFirst = Source 
End Property 

Public." Function MainReporterVolumeLast { ) As Long 
fc^Not (mbcMainReporter Is Nothing) Then 

*t=: MainReporterVolumeLast = mlngMainReporterVolumeFirst + (mlngVolumeEnd - mlngVolumeStart) 

Mh if 

End Ejection 

Public Property Get VolumeStart ( ) As Long 

^iumeStart = mlngVolumeStart 
End Idbperty 

Friend Property Let VolumeStart (By Val Source As Long) 

SJligVolumeStart = Source 
End frpperty 

Pubises Property Get VolumeEndO As Long 

i?dlumeEnd = mlngVolumeEnd 
End Property 

Friend Property Let VolumeEnd(ByVal Source As Long) 

mlngVolumeEnd = Source 
End Property 

Public Property Get YearStartO As Long 

YearStart = mlngYearStart 
End Property 

Friend Property Let YearStart (By Val Source As Long) 

mlngYearStart = Source 
End Property 

Public Property Get YearEndO As Long 

YearEnd = mlngYearEnd 
End Property 

Friend Property Let YearEnd (ByVal Source As Long) 

mlngYearEnd = Source 
End Property 

Public Property Get GroupCodeO As Long 

GroupCode = mlngGroupCode 
End Property 

Friend Property Let GroupCode (By Val Source As Long) 

mlngGroupCode = Source 
End Property 

Public Property Get Jurisdictionlmplicit ( ) As Boolean 

Jurisdictionlmplicit = mbolJurisdictionlmplicit 
End Property 

Friend Property Let Jurisdictionlmplicit (ByVal Source As Boolean) 

mbolJurisdictionlmplicit = Source 
End Property 
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Public Property Get FullName <) As String 

FullName = ntstr FullName 
End Property- 
Friend Property Let FullName (By Val Source As String) 

mstrFullName = Source 

mstrFullNameTrim = SuperTrim( Source) 
End Property 

Public Property Get FullNameTrim( ) As String 

Ful lNameTrim = mstrFullNameTrim 
End Property 

Friend Property Let AbrvName (ByVal Source As String) 

mstrAbrvName = Source 

mstrAbrvNameTrim - SuperTrim{ Source) 
End Property 

Public Property Get AbrvName () As String 

AbrvName = mstrAbrvName 
End Property 

Public Property Get AbrvNameTrim( ) As String 

AbrvNameTrim = mstrAbrvNameTrim 
End Property 

Public Function Impl icit Jurisdiction ( ) As cJurisdiction 

If mbolJurisdictionlmplicit Then 

Set Impl icitJurisdict ion = Me . Parent . Parent 

End If 
End Function 

Public Property Get implicitCourt ( ) As cCourt 

Set ImplicitCourt = mbclmplicitCourt 
End Property 

Friend Property Set ImplicitCourt {Source As cCourt) 

Set mbclmplicitCourt = Source 
End Property 

Publicf: Property Get Parent () As cCourtGroup 

S^f Parent = mbc Parent 
End Property 

Fr ierad | Property Set Parent (ByVal Source As cCourtGroup) 

sit mbcParent = Source 
End EiSperty 

Public^ Function HasEditorsO As Boolean 

if^mcolEditors. Count > 0 Then HasEditors = True 
End Function 

Public" Function isEditorReporter ( ) As Boolean 

Bf Not (mbcMainReporter Is Nothing) Then IsEditorReporter = True 
End Sanction 

Privarff Sub Class_Initialize ( ) 
lyftgKey = UniqueKeyO 
fefc mcolEditors = New Collection 
JobjectsCount = ObjectsCount + 1 

lEfebug . Print "Reporter created. Total: " & ObjectsCount 
End Safc> 

■ 

'Private Sub Class_Terminate ( ) 

"ObjectsCount - ObjectsCount - 1 
Debug. Print "Reporter destroyed. Total: " & ObjectsCount 
'End Sub 
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' — Copyright 2001 by Robert L. Jacobson 
Option Explicit 

Private mcolReporters As Collection 
Private mbcFuzzyCollection As cFuzzyCollection 

Friend Property Get FuzzyCollection{ ) As cFuzzyCollection 

Set FuzzyCol lection = mbcFuzzyCollection 
End Property 

Private Sub Class_Initialize ( ) 

Set mcolReporters = New Collection 

Set mbcFuzzyCollection = New cFuzzyCollection 



/33 



End Sub 



Public Sub ScoreReset ( ) 



Dim bcReporter As cReporter 

For Each bcReporter In mcolReporters 

bcReporter . Score = 0 
Next bcReporter 



End Sub 



Public Function ScoreBestO As cReporter 



Dim bcReporter As cReporter 
Dim IngBest Score As Long 

For Each bcReporter In mcolReporters 

If bcReporter. Score > IngBestScore Then 
Set ScoreBest = bcReporter 
IngBestScore = bcReporter . Score 
End If 
Next bcReporter 

End Faction 

Friers Sub Add {Reporter As cReporter, Optional After As cReporter) 

Wdfch Reporter 

" £ If After Is Nothing Then 
y! mcolReporters. Add Reporter, CStr(.Key) 

" Else 

H mcolReporters . Add Reporter , CStr ( . Key) , After : =CStr (After . Key) 

End If 

mbcFuzzyCollection. Add Reporter, . AbrvNameTrim 
E : M With 

End Sub 

Frieiidlsub AddAlias (Reporter As cReporter, AliasTrim As String) 

4t>bFuzzyCol lection. Add Reporter, AliasTrim 
End § up 

PublC Function Item(Key As String, MatchExact Alias As Boolean, MatchSimilarAlias As Boolean, Optional ByRef KeylsTrimmed As Boolean = Fals 
e) As^Reporter 

Dim strKeyTrim As String 
Dim colltems As Collection 
Dim bcReporter As cReporter 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

If MatchExactAlias = False And MatchSimilarAlias = False Then 
For Each bcReporter In mcolReporters 

If strKeyTrim = bcReporter .AbrvNameTrim Then 
Set Item = bcReporter 
Exit Function 
End If 
Next bcReporter 

Else 

If MatchExactAlias Then Set Item = mbcFuzzy Collect ion. Exactltem( strKeyTrim) 
If Item Is Nothing And MatchSimilarAlias Then 

Set colltems = mbcFuzzyCollection. Similarltems (strKeyTrim) 
If col Items . Count > 0 Then Set Item = colltems (1) 
End If 
End If 



End Function 

Public Function Items (Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCollection As Boolean, Optional ByRef KeylsTri] 
lean = False) As Collection 



Dim strKeyTrim As String 
Dim bcReporter As cReporter 



If KeylsTrimmed Then 
strKeyTrim = Key 
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Else 

strKeyTrim = Super Trim (Key) 
End If 

If MatchExactAlias = True Then Set Items = mbcFuzzyCollection. Exact I terns (strKeyTrim) 
If MatchSimilarFuzzyCollection = True Then 
If Items Is Nothing Then 

Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 
Elself Items. Count = 0 Then 

Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 

End If 
End If 

End Function 



Public Function Match {Reporter As cReporter) As cReporter 

Dim bcReporter As cReporter 
Dim strReporterAbvr As String 



strReporterAbvr = Reporter . AbrvName 

For Each bcReporter In mcolReporters 

If bcReporter .AbrvName = strReporterAbvr Then 
Set Match - bcReporter 
Exit Function 
End If 
Next bcReporter 

End Function 

Public Function Count () As Long 
Count = mcolReporters. Count 
End Function 

Public Function NewEnumO As IUnknown 

Set NewEnum = mcolReporters. [JNewEnum] 
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•__ copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Public gbc Jurisdictions As New cJurisdictions 
Private mlngUniqueKey As Long 

Public Function UniqueKeyO As Long 

mlngUniqueKey = mlngUniqueKey + 1 
UniqueKey = mlngUniqueKey 

End Function 
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•— Copyright 2001 by Robert L. Jacobson. 

Option Explicit 

Public ObjectsCount As Long 
Public Const bcMINIMUMYEAR = 1600 
Public Const bcMAXIMUMYEAR = 2025 

Public Sub LoadReporters (Jurisdictions As cJurisdictions) 

Call LoadlndividualReporters (Jurisdictions) 
Call LoadLexisAndWestlawReporters (Jurisdictions) 

End Sub 

Private Sub LoadlndividualReporters (Jurisdictions As cJurisdictions) 

Dim IngFileNumber As Long 

Dim bcReporter As cReporter 

Dim strAbrvName As String 

Dim strFullName As String 

Dim strMainReporter As String 

Dim strJurisdiction As String 

Dim strCourtGroup As String 

Dim strVolumeStart As String 

Dim strVolumeEnd As String 

Dim strYearStart As String 

Dim strYearEnd As String 

Dim strGroupCode As String 

Dim strlmplicitCourt As String 

Dim strMainReporterVolumeFirst As String 

Dim bcMainReporter As cReporter 



IngFileNumber = FreeFile 

Open "C:\BlueCheckVData\Reporters.txt" For Input As IngFileNumber 



Line Input # IngFileNumber , strJurisdiction 

Line Input # IngFileNumber, strCourtGroup 

Line Input # IngFileNumber, strAbrvName 

fd Line Input # IngFileNumber , strFullName 

J"s Line Input # IngFileNumber , strMainReporter 

^■1 Line Input # IngFileNumber, strVolumeStart 

5 Line Input # IngFileNumber, strVolumeEnd 

^ Line Input # IngFileNumber, strYearStart 

Ul Line Input # IngFileNumber, strYearEnd 

T" Line Input # IngFileNumber, strGroupCode 

f™* Line Input # IngFileNumber , strlmplicitCourt 

Line Input # IngFileNumber, strMainReporter 

W Line Input # IngFileNumber , strMainReporterVolumeFirst 

x? ~ Set bcReporter = New cReporter 

s With bcReporter 

$9* .AbrvName = strAbrvName 

.FullName - strFullName 
=4= .VolumeStart = Val (strVolumeStart) 

.VolumeEnd = Val (strVolumeEnd) 
Q .YearStart = Val (strYearStart) 

.YearEnd = Val (strYearEnd) 
5*-= .GroupCode = strGroupCode 

Set .Parent = Jurisdictions (strJurisdiction) .CourtGroups (strCourtGroup) 

If strlmplicitCourt <> Then 

Set .ImplicitCourt = . Parent . Parent .Courts . Item (strlmplicitCourt, False, Pais 

. Jurisdictionlmplicit - True 
Elself strJurisdiction = "Federal" Then 

.Jurisdictionlmplicit = True 
Elself InStr (bcReporter . AbrvNameTrim, . Parent . Parent . AbrvNameTrim) Then 

.Jurisdictionlmplicit = True 
End If 

If strMainReporter <> " " Then 

Set bcMainReporter = . Parent . Reporters (strMainReporter , False, False) 

Set .MainReporter = bcMainReporter 

bcMainReporter . Editors . Add bcReporter 
End If 

.MainReporterVolumeFirst = Val (strMainReporterVolumeFirst) 
End With 

bcReporter . Parent . Reporters . Add bcReporter 

bcReporter . Parent .Reporters .AddAlias bcReporter, bcReporter .FullNameTrim 
bcReporter. Parent. Parent. AllReporters. Add bcReporter 

bcReporter . Parent. Parent. AllReporters . AddAlias bcReporter, bcReporter .FullNameTrim 
Jurisdictions. AllReporters. Add bcReporter 

Jurisdictions .AllReporters .AddAlias bcReporter, bcReporter . FullNameTrim 
' DoEvents 

Loop Until EOF ( IngFileNumber) 
Close IngFileNumber 

End Sub 

Private Sub LoadLexisAndWestlawReporters (Jurisdictions As cJurisdictions) 



Dim bcJurisdiction As cJurisdiction 
Dim bcCourtGroup As cCourtGroup 
Dim bcReporter As cReporter 
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For Each be Jurisdiction In Jurisdictions 

For Each bcCourtGroup In bcJurisdiction.CourtGroups 



Set bcReporter = New cReporter 

With bcReporter 

.AbrvName = "WL" 
.FullName - "Westlaw" 
.VolumeStart = bcMINIMUMYEAR 
.VolumeEnd = b cMAX IMUMYEAR 
.YearStart - bcMINIMUMYEAR 
.YearEnd = bcMAXIMUMYEAR 

.GroupCode = strGroupCode 
Set .Parent = bcCourtGroup 

End With 

bcCourtGroup . Reporters . Add bcReporter 



Next bcCourtGroup 
Next be Jurisdiction 



Set bcReporter = New cReporter 
With bcReporter 

.AbrvName = "WL" 

.FullName = "Westlaw" 

.VolumeStart = bcMINIMUMYEAR 

.VolumeEnd = bcMAXIMUMYEAR 

.YearStart = bcMINIMUMYEAR 

.YearEnd = bcMAXIMUMYEAR 
.GroupCode = strGroupCode 

Set .Parent = bcCourtGroup 
End With 

Jurisdictions . AllReporters . Add bcReporter 



End Sub 
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■— Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mbc Jurisdictions As c Jurisdictions 

Public Sub PopulateJurisdictions { Jurisdictions As cJurisdictions) 
Set mbcJurisdictions = Jurisdictions 
Call AddFederal 

Call AddFederalOldCircuitCourts 

Call AddAla 

Call AddAlaska 

Call AddAriz 

Call AddArk 

Call AddCal 

Call AddColo 

Call AddConn 

Call AddDel 

Call AddDC 

Call AddFla 

Call AddGa 

Call AddHaw 

Call Addldaho 

Call Addlll 

Call Addlnd 

Call Addlowa 

Call AddKan 

Call AddKy 

Call AddLa 

Call AddMe 

Call AddMd 

Call AddMass 

Call AddMich 

Call AddMinn 

Call AddMiss 

Call AddMo 

Call AddMont 

C3f£l AddNeb 

cSfl AddNev 

ciQl AddNH 

sill AddNJ 

cMl AddNM 

Gall AddNY 

Call AddNC 

4|il AddND 

CaJLl AddOhio 

lall AddOkla 

3$il AddOr 

&kll AddPa 

413.1 AddRI 

Call AddSC 

©all AddSD 

<£ail AddTenn 

#ail AddTex 

£all AddUtah 

h$il AddVt 

fall AddVa 

£a!il AddWash 

Call AddWVa 

SaaLl AddWis 

esS.1 AddWyo 

AddAmSamoa 
Call AddCZ 
Call AddGuam 
Call AddNavajo 
Call AddNMarl 
Call AddPR 
Call AddVI 

Set mbcJurisdictions = Nothing 
End Sub 

Private Sub AddFederal { ) 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Dim objJurisdiction As cJurisdiction 

Dim strJurName As String 



Set NewJur = AddJurisdiction{ "Federal" , "Fed.", "us") 

Set NewCourtGroup = AddCourtGroup {NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Supreme Court" , "«, 1790, 0, True, "suprct", "supct , 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup .NonPar all elReporters . Add 2 
NewCourtGroup. NonParallelReporters . Add 3 
NewCourtGroup, NonPar all elReporters .Add 4 

Set NewCourtGroup = AddCourtGroup {NewJur, "Circuit Justices") 

Set NewCourt = AddCourt (NewCourtGroup, "Circuit Justice", "Circuit Justice", 1790, 0, True) 
NewCourtGroup . Nonpar a 11 elReporters .Add 1 
NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParall elReporters .Add 3 
NewCourtGroup .NonParallelReporters .Add 4 

Set NewCourtGroup = AddCourtGroup (NewJur, "Courts of Appeals") 



"Court of Appeals for the Fifth Circuit", "5th Cir.", 

"Court of Appeals for the Sixth Circuit", "6th Cir.", 

"Court of Appeals for the Seventh Circuit", "7th Cir. 

"Court of Appeals for the Eighth Circuit", "8th Cir.' 



, 1891, 0, True, "4cir", "cca4th", "cca4", 
1891, 0, True, "5cir", "ccaSth" , "cca5", " 
1891, 0, True, "6cir", "cca6th", "cca6", " 
", 1891, 0, True, "7cir", "cca7th" , "cca7", 
, 1891, 0, True, "8cir", "cca8th" , "cca8", 
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Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the First Circuit", "1st Cir.", 1891, 0, True, "lcir", "ccalst", "ccal", 

^'set^NewCour^ "Court of Appeals for the Second Circuit " , "2d Cir.» ( 1891, 0, True, "2cir", »cca2d", "cca2\ "c 

a2\ "ca2d" , "cir2", "secondcir", "2ndcir", "cca2nd\ "ca2nd") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Third Circuit", "3d Cir.", 1891, 0, True, "3cir", "cca3d , cca3 , ca 
3", "ca3d\ "cir3", "thirdcir", "3rdcir", "cca3rd", "ca3rd") _ 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Fourth Circuit", "4th Cir. 
"ca4", "ca4th", "cir4", "four their") 

Set NewCourt = AddCourt (NewCourtGroup, 
ca5", "caSth", "cir5", "f if their") 

Set NewCourt = AddCourt (NewCourtGroup, 
ca6", "ca6th", "cir6", "sixthcir") 

Set NewCourt = AddCourt (NewCourtGroup, 
"ca7", "ca7th", "cir7", "seven their" ) 

Set NewCourt - AddCourt (NewCourtGroup, 

'^Set'Se^ "Court of Appeals for the Ninth Circuit" , »9thCir.", 1891, 0, True, "9cir", "cca9th", "cca9", " 

Ca9 "set C NewCourt C =lddC^^ "Court of Appeals for the Tenth Circuit" , "10th Cir.", 1891, 0, True, "lOcir", "ccalOth", "ccalO 

let°NewCo^ ;'Court of Appeals for the Eleventh Circuit " , "11th Cir.", 1891, 0, True, "llcir", "ccalltti", "cc 

Set^e^Court*^ of Appeals for the District of Columbia Circuit", "D.C. Cir.", 1919, 0, True, "ccadc", "c 

irdc", "cade", "districtof eolumbiaeir " ) 

NewCourtGroup . NonPar all elReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Temporary Emergency Court of Appeals") „^ m 

Set NewCourt = AddCourt (NewCourtGroup, "Temporary Emergency Court of Appeals", "Temp. Emer. Ct. App.", 1971, 1993, True, " tempemerappct 

) Set NewCourt = AddCourt (NewCourtGroup, "Emergency Court of Appeals", "Emer. Ct. App.", 1942, 1961, True, "emerappct") 
Set NewCourt = AddCourt (NewCourtGroup, "Commerce Court", "Comm. Ct.", 1910, 1913, True) 
NewCourtGroup. NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "United States Court of Appeals for the Federal Circuit") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Appeals for the Federal Circuit", "Fed. Cir.", 1982, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Customs and Patent Appeals", "C.C.P.A.", 1929, 1982, True) 
Set NewCourt = AddCourt {NewCourtGroup, "Court of Customs Appeals", "Ct. Cust. App.", 1910, 1929, True) 
S&t NewCourt = AddCourt (NewCourtGroup, "Court of Claims", "Ct. Cl . " , 1956, 1982, False) 
iSlCourtGroup . NonPara 11 elReporters .Add 1 
NewCourtGroup . NonParallelReporter s . Add 2 

gfetf NewCourtGroup = AddCourtGroup (NewJur , "United States Court of Federal Claims") 

Se? NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Federal Claims", "Fed. Cl.", 1992, 0, True) 

Sei NewCourt = AddCourt (NewCourtGroup, "U.S. Claims Court", "Cl. Ct.", 1982, 1992, True) 

S^fe NewCourt = AddCourt (NewCourtGroup, "Court of Claims", "Ct. Cl." , 1863, 1982, True) 

NewCourtGroup. NonPar all elReporters. Add 1 

]|&wCourtGroup .NonParall elReporters .Add 2 

NewCourtGroup = AddCourtGroup (NewJur , "United States Court of International Trade") 
NewCourt = AddCourt (NewCourtGroup, "U.S. Court of International Trade", "Ct. Int'l Trade 



W 

S^et NewCourt 

ikt NewCourt = AddCourt (NewCourtGroup, "U.S. Customs Court" 
NewCourtGroup . NonPar al 1 elReporters . Add 1 
NewCourtGroup . NonParall elReporters . Add 2 
§ lifCour tGroup . NonParal 1 e IRepor ter s . Add 3 
NewCourtGroup . NonParall elReporters , Add 4 



1980, 0, True) 



Cust. Ct.", 1926, 1980, True) 



£efc NewCourtGroup = AddCourtGroup (NewJur , "District Courts") 

§ei NewCourt = AddCourt (NewCourtGroup , "U.S. District Court, Northern District of Alabama" 



ama " 

Sat NewCourt 

a") p 

Set NewCourt 

ama " 

Set NewCourt 

Set NewCourt 

Set NewCourt 
nsas " ) 

Set NewCourt 
nsas" ) 

Set NewCourt 
alifornia" ) 

Set NewCourt : 
lifornia" ) 

Set NewCourt = 
lifornia" ) 

Set NewCourt : 
alifornia" ) 

Set NewCourt ■ 

Set NewCourt ; 

) 

Set NewCourt 

Set NewCourt 
lumbia" ) 

Set NewCourt 
ida") 

Set NewCourt 

a") 

Set NewCourt 

ida") 

Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 

inois" ) 

Set NewCourt 

nois") 

Set NewCourt 

inois" ) 



N.D. Ala.", 1880, 0, True, "ndal", "ndalab 

= AddCourt (NewCourtGroup, "U.S. District Court, Middle District of Alabama", "M.D. Ala.", 1880, 0, True, "mdal", "mdalabam 

= AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Alabama", "S.D. Ala.", 1880, 0, True, "sdal", "sdalab 

= AddCourt (NewCourtGroup, "U.S. District Court, District of Alaska", "D. Alaska", 1880, 0, True, "dal") _ 
= AddCourt (NewCourtGroup, "U.S. District Court, District of Arizona", "D. Ariz.", 1880, 0, True, "daz", 'Arizona ) 

- AddCourt (NewCourtGroup, "U.S. District Court, Eastern District of Arkansas", "E.D. Ark.", 1880, 0, True, "edak", edarka 

= AddCourt (NewCourtGroup, "U.S. District Court, Western District of Arkansas", "W.D. Ark.", 1880, 0, True, "wdak", "wdarka 
= AddCourt (NewCourtGroup, "U.S. District Court, Northern District of California", "N.D. Cal.'\ 1880, 0, True, "ndca" , "ndc 

- AddCourt (NewCourtGroup, "U.S. District Court, Eastern District of Calif ornia" , "E.D. Cal . " , 1880, 0, True, "edca", "edca 

1880, 0, True, "edca", "edca 

, 1880, 0, True, "sdea", "sdc 



AddCourt (NewCourtGroup, "U.S. District Court, Central District of California", "CD. Cal." 

AddCourt (NewCourtGroup, "U.S. District Court, Southern District of California", "S.D. Cal. 

AddCourt (NewCourtGroup, "U.S. District Court, District of Colorado", "D. Colo.", 1880, 0, True, "dco", "dcolorado") 

AddCourt (NewCourtGroup, "U.S. District Court, District of Connecticut", "D. Conn.", 1880, 0, True, "dct", "dconnecticut 

AddCourt (NewCourtGroup, "U.S. District Court, District of Delaware", "D. Del.", 1880, 0, True "dde", "ddelaware") 

AddCourt (NewCourtGroup, "U.S. District Court, District of District of Columbia", "D.D.C.", 1880, 0, True, "ddistnctof co 

AddCourt (NewCourtGroup, "U.S. District Court, Northern District of Florida", "N.D. Fla.\ 1880, 0, True, "ndfl", "ndflor 

AddCourt (NewCourtGroup, "U.S. District Court, Middle District of Florida", "M.D. Fla.", 1880, 0, True, "mdfl", "mdflorid 

: AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Florida", "S.D. Fla.", 1880, 0, True, "sdfl", "sdflor 

■ AddCourt (NewCourtGroup, "U.S. District Court, Northern District of Georgia", "N.D. Ga.", 1880, 0, True, "ndgeorgia") 

: AddCourt (NewCourtGroup, "U.S. District Court, Middle District of Georgia", "M.D. Ga.", 1880, 0, True, "mdgeorgia^ ) 

: AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Georgia", "S.D. Ga.", 1880, 0, True, "sdgeorgia" ) 

AddCourt (NewCourtGroup, "U.S. District Court, District of Hawaii " , "D. Haw.", 1880, 0, True, "dhi", "dhawan") 

: AddCourt (NewCourtGroup, "U.S. District Court, District of Idaho", "D. Idaho", 1880, 0, True, "did", "didaho") 

: AddCourt (NewCourtGroup, "U.S. District Court, Northern District of Illinois", "N.D. 111.", 1880, 0, True, -ndal , ndill 

: AddCourt (NewCourtGroup, "U.S. District Court, Central District of Illinois", "CD. 111.", 1880, 0, True, "cdil", "cdilli 

= AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Illinois", "S.D. 111.", 1880, 0, True, "sdil\ "sdill 



mPopulateJurisdictions 
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Set NewCourt 
ana" ) 
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nia" ^(555 

§et NewCourt 
iaMffl 

Igt NewCourt 
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Set NewCourt 
Met NewCourt 
NewCourt 
§et NewCourt 
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Set NewCourt 
nessee" ) 

Set NewCourt 
nnessee") 

Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
n" , "edwashington 

Set NewCourt 
n", "wdwashington' 
Set NewCourt = 
"ndwestvirginia" ) 

Set NewCourt = 
"sdwestvirginia" ) 
Set NewCourt = 
cons in" ) 

Set NewCourt = 
cons in") 

Set NewCourt = 
NewCourt Group 
NewCourtGroup 



AddCourt {NewCourtGroup , "U.S. 



District Court, Northern District of Indiana", "N.D. Ind.", 1880, 0, True, "ndin", "ndindi 
= AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Indiana", "S.D. Ind.", 1880, 0, True, "sdin", "sdindi 



AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 



(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup, 
( NewCourtGroup , 
(NewCourtGroup, 
(NewCourtGroup , 
(NewCourtGroup, 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
( NewCourtGroup , 



"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 



AddCourt {NewCourtGroup, 

AddCourt (NewCourtGroup , 

AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 



"U.S. 

"U.S. 

"U.S. 

"U.S. 
"U.S. 



District 
District 
District 
District 
District 
District 
District 
District 
District 
District 
District 



Court, 
Court , 
Court, 
Court, 
Court , 
Court, 
Court, 
Court , 
Court, 
Court, 
Court , 



Northern District of Iowa", 
Southern District of Iowa", 



"N.D. 
"S.D. 



Iowa " 
Iowa " 



1880, 0, 
1880, 0, 



True, "ndia") 
True, "sdia") 



District of Kansas", "D. Kan.", 1880, 0, True, "dks' 
Eastern District of Kentucky", "E.D. Ky. " , 1880, 0, 
Western District of Kentucky", "W.D. Ky.", 1880, 0, 
Eastern District of Louisiana", "E.D. La.", 1880, 0, 
Middle District of Louisiana", "M.D. La.", 1880, 0, 
Western District of Louisiana", "W.D. La.", 1880, 0, 
District of Maine", "D. Me.", 1880, 0 
District of Maryland", "D. Md.", 1880 



, " dkansas " ) 

True , " edkentucky " ) 

Tr ue , " wdken t uc ky " ) 

True, "edlouisiana" ) 
True, "mdlouisiana" ) 

True, "wdlouisiana" ) 



True, "dmaine") 
0, True, "dmaryland" ) 



District of Massachusetts", "D. Mass.", 1880, 0, True, "dma", "dmassachuse 



District Court, Eastern District of Michigan", "E.D. Mich.", 1880, 0, True, "edmi", "edmic 
District Court, Western District of Michigan", "W.D. Mich.", 1880, 0, True, "wdmi", "wdmic 



District Court, District of Minnesota", "D . Minn. 
District Court, Northern District of Mississippi" 



, 1880 
"N.D. 



, 0, True, "dmn", 
Miss.", 1880, 0, 



" dminnesota ") 
True, "ndmi", 



AddCourt (NewCourtGroup , "U.S. District Court, Southern District of Mississippi", "S.D. Miss.", 1880, 0, True, "sdmi" 



AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
; AddCourt 



(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup, 
(NewCourtGroup, 
(NewCourtGroup, 
(NewCourtGroup , 
(NewCourtGroup, 
{ NewCourtGroup , 



"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 
"U.S. 



District 
District 
District 
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District 
District 
District 
District 
District 



Court , 
Court, 
Court, 
Court , 
Court, 
Court, 
Court, 
Court, 
Court, 
Court, 
Court , 
Court, 
Court 



Eastern District of Missouri", "E.D. Mo.", 1880, 

Western District of Missouri", "W.D. Mo.", 1880, 

District of Montana", "D. Mont.", 1880, 0, True, 

District of Nebraska", "D. Neb.", 1880, 0, True, 



0, True, "edmissouri") 
0, True, "wdmissouri" ) 
" dmt " , " dmontana " ) 
" dne " , " dnebraska " } 



District of Nevada", "D. Nev. " , 1880, 0, True, 
District of New Hampshire", " D . N , H . " , 1880, 0, 
District of New Jersey" , "D.N.J. ", 1880, 0, 
District of New Mexico", "D.N.M.", 1880, 0, 
Northern District of New York", "N.D.N.Y.", 
Southern District of New York", "S.D.N.Y." , 
Eastern District of New York", "E.D.N.Y.", 
Western District of New York", "W.D.N.Y.", 
Eastern District of North Carolina", "E.D.N 



" dnv " , " dnevada " ) 
True, "dnewhampshire") 
True, "dnew jersey" ) 
True, "dnewmexico" ) 
1880, 0, True, "ndnewyork") 
1880, 0, True, "sdnewyork") 
1880, 0, True, "ednewyork") 
1880, 0, True, "wdnewyork") 
C", 1880, 0, True, "ednorthca 



= AddCourt (NewCourtGroup, 



"U.S. District Court, Western District of North Carolina", "W.D.N.C.", 1880, 0, True, "wdnorthca 



AddCourt (NewCourtGroup, "U.S. District Court, Middle District of North Carolina" , "M.D.N.C.", 1880, 0, True, 



"mdnorthcar 



AddCourt (NewCourtGroup , "U.S. 

AddCourt (NewCourtGroup , "U.S. 

AddCourt (NewCourtGroup , "U.S. 

AddCourt {NewCourtGroup , "U.S. 



= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup , 
= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup , 

= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 
= AddCourt {NewCourtGroup, 
= AddCourt (NewCourtGroup, 
= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 

= AddC our t ( NewC our t Gr oup , 
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AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 
AddCourt 



(NewCourtGroup, 
(NewCourtGroup, 
(NewCourtGroup, 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup , 
(NewCourtGroup, 
(NewCourtGroup , 
(NewCourtGroup, 



) 

= AddCourt {NewCourtGroup, 
AddCourt (NewCourtGroup, 



■■ AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 

= AddCourt (NewCourtGroup, 
NonParallelReporters . Add 
NonParallelReporters . Add 
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District Court, District of North Dakota" , "D.N.D.", 1880, 0, True, "dnorthdakota" ) 

District Court, Northern District of Ohio", "N.D. Ohio", 1880, 0, True, "ndoh") 

District Court, Southern District of Ohio", "S.D. Ohio", 1880, 0, True, "sdoh") 

District Court, Northern District of Oklahoma", "N.D, Okla.", 1880, 0, True, "ndok" , "ndok 

District Court, Eastern District of Oklahoma", "E.D. Okla.", 1880, 0, True, "edok", "edokl 

District Court, Western District of Oklahoma", "W.D. Okla.", 1880, 0, True, "wdok", "wdokl 

District Court, District of Oregon", "D. Or.", 1880, 0, True, "doregon") 

District Court, Eastern District of Pennsylvania", "E.D. Pa.", 1880, 0, True, * edpennsylva 

District Court, Middle District of Pennsylvania", "M.D. Pa.", 1880, 0, True, "mdpennsylvan 

District Court, Western District of Pennsylvania", "W.D. Pa.", 1880, 0, True, "wdpennsylva 

District Court, District of Rhode Island", "D.R.I. ", 1880, 0, True, " drhode island" ) 

District Court, District of South Carolina", "D.S.C.", 1880, 0, True, "dsouthcarolina" ) 

District Court, District of South Dakota" , "D.S.D.", 1880, 0, True, "dsouthdakota" ) 

District Court, Eastern District of Tennessee", "E.D. Term." , 1880, 0, True, "edtn", "edte 

District Court, Middle District of Tennessee", "M.D. Tenn.", 1880, 0, True, "mdtn", "mdten 

District Court, Western District of Tennessee", "W.D. Tenn.", 1880, 0, True, "wdtn" , "wdte 

District Court, Northen District of Texas", "N.D. Tex.", 1880, 0, True, "ndtx", "ndtexas") 

District Court, Eastern District of Texas", "E.D. Tex.", 1880, 0, True, "edtx", "edtexas") 

District Court, Souther District of Texas", "S.D. Tex.", 1880, 0, True, "sdtx", "sdtexas") 

District Court, Western District of Texas", "W.D. Tex.", 1880, 0, True, "wdtx", "wdtexas") 

District Court, District of Utah", "D. Utah", 1880, 0, True, "dut", "dutah" ) 

District Court, District of Vermont", "D. Vt.", 1880, 0, True, "dvermont") 

District Court, Eastern District of Virginia", "E.D. Va.", 1880, 0, True, "edvirginia" ) 

District Court, Western District of Virginia", "W.D. Va.", 1880, 0, True, "wdvirginia" ) 

District Court, Eastern District of Washington", "E.D. Wash.", 1880, 0, True, "edwa" , "edw 

District Court, Western District of Washington", "W.D. Wash.", 1880, 0, True, "wdwa", "wdw 

District Court, Northern District of West Virginia", "N.D.W. Va.", 1880, 0, True, "ndwv", 

District Court, Southern District of West Virginia", "S.D.W. Va.", 1880, 0, True, "sdwv", 

District Court, Eastern District of Wisconsin" , "E.D. Wis.", 1880, 0, True, "edwi", "edwis 

District Court, Western District of Wisconsin", "W.D. Wis.", 1880, 0, True, "wdwi", "wdwis 

. District Court, District of Wyoming", "D. Wyo.", 1880, 0, True, "dwy", "dwyoming") 



Set NewCourtGroup = AddCour tGr oup {mbc Jurisdictions { "Federal ") , "Bankruptcy Courts") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Alabama", "Bankr. N.D. Ala.", 1979, 0, True, bankr 
ndalabajna" , "bnkrndala" , "bankrndal", "bnkrndal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Middle District of Alabama", "Bankr. M.D. Ala. , 1979, 0, True, bankrmd 
alabama", "bnkrmdala", "bankrmdal", "bnkrmdal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of Alabama", "Bankr. S.D. Ala.", 1979, 0, True, bankr 
sdalabama", "bnkrsdala" , "bankrsdal", "bnkrsdal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Alaska", "Bankr. D. Alaska", 1979, 0, True, bnkrdalaska , 
bankrdal " , " bnkrdal " ) 



mPopulateJurisdictions - 4 

Set NewCourt - AddCourt (NewCourtGroup, "U.S. Bankruptcy Court , District of Arizona" , "Bankr. D. Ariz.", 1979, 0, True, "bnkrdariz", "ba 
nkrdaz " "bnkrdaz " ) 

Set'NewCourt = AddCourt { NewCourt Group, "U.S. Bankruptcy Court, Eastern District of Arkansas", "Bankr. E.D. Ark.", 1979, 0, True, "bankr 
edarkansas", "bnkredark" , " bankr edak " , "bnkredak" ) , nnn . m ... . 

Set NewCourt = AddCourt ( NewCourt Group , "U.S. Bankruptcy Court, Western District of Arkansas", "Bankr. W.D. Ark.", 1979, 0, True, bankr 

wdarkansas", "bnkrwdark" , "bankrwdak", "bnkrwdak") D T M n „ , (1 1Q7a n BKa 

Set NewCourt = AddCourt ( NewCourt Group, "U.S. Bankruptcy Court, Northern District of California", "Bankr. N.D. Cal . , 1979, 0, True, ba 

nkrndcalifornia", "bnkmdcal", "bankrndca" , "bnkrndca") £ „ , . * m , <-> n « iqiq a n**,* «v^-n 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of California", "Bankr. E.D. Cal. , 1979, 0, True, ban 
kredcalif ornia" , "bnkredcal", " bankr edca" , "bnkredca") 

Set NewCourt - AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Central District of California", "Bankr. CD. Cal.", 1979, 0, True, ban 
krcdcal if ornia " , "bnkredcal", "bankredea", "bnkredca") , ft m „^ 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of California", "Bankr. S.D. Cal.", 1979, 0, True, ba 
nkrsdcali f ornia" , "bnkrsdcal", "bankrsdea", "bnkrsdca") 

n Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Colorado", "Bankr. D. Colo.", 1979, 0, True, - bankr dcolor ado 

"' "'sl^Ne!^ "U.S. Bankruptcy Court, District of Connecticut", "Bankr. D. Conn.", 1979, 0, True, "bankrdconne 

CtiC Se;'Ne" Bankruptcy Court, District of Delaware", "Bankr. D . Del.", 1979, 0, True, 

' b Se^NewCou^^ "U.S. Bankruptcy Court, District of District of Columbia", "Bankr. D.D.C.", 1979, 0, True, "bank 

^^Set^ewCo^ "U.S. Bankruptcy Court, Northern District of Florida", "Bankr. N.D. Fla.", 1979, 0, True, "bankr 

ndil Zi%^ Court, Middle District of Florida", "Bankr. M.D. Fla.", 1979, 0, True, "banked 

florida", "bnkrmdfla", "bankrmdf 1" , "bnkrmdfl") ,.K*nVv- 
Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, Southern District of Florida", "Bankr. S.D. Fla.-, 1979, 0, True, bankr 

^Set^Ne^ Bankruptcy Court, Northern District of Georgia", "Bankr. N.D. Ga.'\ 1979, 0, True, "bankrn 

^Se^^^ "U.S. Bankruptcy Court, Middle District of Georgia", "Bankr. M.D. Ga.", 1979, 0, True, "bankrmdg 

^Set'^o^ "U.S. Bankruptcy Court, Southern District of Georgia", "Bankr. S.D. Ga.", 1979, 0, True, "bankrs 

^Se^NewC^ "U.S. Bankruptcy Court, District of Hawaii", "Bankr. D. Haw.", 1979, 0, True, " bankr dhawaii " , «b 

^SefNe^ "U.S. Bankruptcy Court, District of Idaho", "Bankr. D. Idaho", 1979, 0, True, "bnkrdidaho" , "ban 

krdl Set NewCourt I AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Illinois", "Bankr. N.D. 111.", 1979, 0, True, "bank 

rndilfinois", "bnkrndill" , "bankrndil", "bnkrndil") _ „. a , r 

Sg| NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Central District of Illinois", "Bankr. CD. 111.", 1979, 0, True, bankr 

Cdil Sl^ Southern District of Illinois", "Bankr. S.D. 111.", 1979, 0, True, "bank 

rSdl si| n NewC^^ Bankruptcy Court, Northern District of Indiana", "Bankr. N.D. Ind.", 1979, 0, True, "bankr 

ndindiana", "bnkrndind" , "bankrndin" , "bnkrndin") , „ hantr 

HI NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of Indiana", "Bankr. S.D. Ind.", 1979, 0, True, bankr 

sdindiana", "bnkrsdind" , "bankrsdin" , "bnkrsdin") „ KllVrT1 ,. A 

III NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Iowa", "Bankr. N.D. Iowa", 1979, 0, True, bnkrndio 

^'''i!!^^ "U.S. Bankruptcy Court, Southern District of Iowa", "Bankr. S.D. Iowa", 1979, 0, True, "bnkrsdio 

Wa, ''l!t a N^ "U.S. Bankruptcy Court, District of Kansas", "Bankr. D. Kan.", 1979, 0, True, " bankr dkansas - , "b 

nkrdSan", "bankrdks" , "bnkrdks") . m-, ic , Nu anVrD 

get NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Kentucky", "Bankr. E.D. Ky.", 1979, 0, True, bankre 

&OT |g^ e ^ o ^® d ^ d ^ o ^ t(Ne ^ ourtSrouPi „ us> Bankruptcy Court, Western District of Kentucky" , "Bankr. W.D. Ky.", 1979, 0, True, "bankrw 

dkSn S k L^ "U.S. Bankruptcy Court, Eastern District of Louisiana" , "Bankr. E.D. La.", 1979, 0, True, "bankr 

edlo|piana^ ^ ^ Bankruptcy Court, Middle District of Louisiana", "Bankr. M.D. La.", 1979, 0, True, "bankrm 

dlouaisiana" , "bnkrmdla") , . una « iu. n vr 

|e> NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Louisiana", "Bankr. W.D. La. , 1979, 0, True, bankr 

^tet^^ "U.S. Bankruptcy Court, District of Maine", "Bankr. D. Me.", 1979, 0, True, "bankrdmaine" , "bnkr 

^"kt NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of Maryland", "Bankr. D. Md.", 1979, 0, True, " bankr dmaryl and » , 

" bn SerNewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Massachusetts" , "Bankr. D. Mass.", 1979, 0, True, "bankrdmas 

sachusetts", "bnkrdmass" , "bankrdma", "bnkrdma") -hanV 

Set NewCourt - AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Michigan", "Bankr. E.D. Mich.", 1979, 0, True, bank 
redmichigan" , "bnkredmich" , "bankredmi", "bnkredmi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Michigan", "Bankr. W.D. Mich. , 1979, 0, True, bank 

^t^ District of Minnesota", "Bankr. D. Minn.", 1979, 0, True, " bankr dminne so 

ta'\ "bnkrdminn" , "bankrdmn", "bnkrdmn") „ 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Mississippi", "Bankr. N.D. Miss. , 1979, 0, True, 

bankrndmississippi", " bnkrndmi s s " , "bankrndmi", "bnkrndmi") n 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of Mississippi", "Bankr. S.D. Miss. , 1979, 0, True, 

bankr sdmississippi" , "bnkrsdmiss" , "bankrsdmi", "bnkrsdmi") .-k^Wa 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Missouri", "Bankr. E.D. Mo. , 1979, 0, True, bankre 

dmiS Set r NewCou?t r = d AddCourt(N^ "U.S. Bankruptcy Court, Western District of Missouri", "Bankr. W.D. Mo.", 1979, 0, True, "bankrw 

^le^New^^ "U.S. Bankruptcy Court, District of Montana", "Bankr. D. Mont.", 1979, 0, True, "bankrdmontana" , 

"^Set^^ "U.S. Bankruptcy Court, District of Nebraska" , "Bankr. D. Neb.", 1979, 0, True, "bankrdnebraska" 

' '^Set^wC^^^ "U.S. Bankruptcy Court, District of Nevada" , "Bankr. D. Nev.", 1979, 0, True, " bankr dne vada " , "b 

ankr St NewCour?rAddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of New Hampshire" , "Bankr. D.N.H.", 1979, 0, True, "bankrdnewha 

^SetNeiSrt^ AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of New Jersey" , "Bankr. D.N.J. ", 1979, 0, True, "bankrdnewjerse 

y,,/ Set^e^Court = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of New Mexico", "Bankr. D.N.M.", 1979, 0, True, " bankr dnewmexic 

Set^twCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, Northern District of New York", "Bankr. N.D.N.Y.", 1979, 0, True, "bankr 

ndnewyork" , "bnkrndny" ) # . ^ ^ ^ « v ia^a n -v^w 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of New York" , "Bankr. S.D.N.Y.", 1979, 0, True, bankr 

^^rLwCour^ AddCourt (NewCourt Group, "U.S. Bankruptcy Court, Eastern District of New York" , "Bankr. E.D.N.Y.", 1979, 0, True, "bankre 
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dnewyork", "bnkredny") t n m 

Set NewCourt = AddCourt (NewC our t Group, "U.S. Bankruptcy Court, Western District of New York", "Bankr. W.D.N.Y.", 1979, 0, True, bankrw 
dnewyork" , "bnkrwdny") t - «„ A « 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of North Carolina", "Bankr. E.D.N.C.", 1979, 0, True, 
bankrednorthcarolina" , "bnkrednc") t « m 

Set NewCourt = AddCourt <NewCourtGroup, "U.S. Bankruptcy Court, Western District of North Carolina", "Bankr, W.D.N.C", 1979, 0, True, 
bankrwdnorthcarolina" , "bnkrwdnc") t „ _ „, 

Set NewCourt = AddCourt (NewCourt Group, "U.S. Bankruptcy Court, Middle District of North Carolina", "Bankr. M.D.N.C.", 1979, 0, True, b 
ankrmdnorthcarolina" , " bnkrmdnc " ) . „„„ „ „. , ^ , 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of North Dakota", "Bankr. D.N.D.", 1979, 0, True, "bankrdnorthd 

dk0t Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Ohio", "Bankr. N.D. Ohio", 1979, 0, True, "bnkrndoh 

io", "bankrndoh" , "bnkrndoh") „ _ „ „ „^ nJ ^ 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of Ohio", "Bankr. S.D. Ohio", 1979, 0, True, "bnkrsdoh 
io", " bankr sdoh " , "bnkrsdoh"} 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, Northern District of Oklahoma", "Bankr. N.D. Okla.", 1979, 0, True, ban 
krndoklahoma" , "bnkrndokla" , "bankrndok" , "bnkrndok") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Oklahoma", "Bankr. E.D. Okla.", 1979, 0, True, bank 
redoklahoma" , "bnkredokla" , "bankredok" , "bnkredok") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Oklahoma", "Bankr. W.D. Okla.", 1979, 0, True, "bank 
rwdoklahoma" , "bnkrwdokla" , "bankrwdok", "bnkrwdok") 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of Oregon", "Bankr. D. Or.", 1979, 0, True, " bankr dor egon 1 , bn 

krdor " } 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Pennsylvania", "Bankr. E.D. Pa.", 1979, 0, True, "ba 
nkredpennsylvania" , "bnkredpa") 1Anrt A 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Middle District of Pennsylvania", "Bankr. M.D. Pa.", 1979, 0, True, ban 
krmdpennsylvania" , "bnkrmdpa") , 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Pennsylvania", "Bankr. W.D. Pa.', 1979, 0, True, ba 

nkrwdpennsylvania" , "bnkrwdpa" ) . 
Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Rhode Island", "Bankr. D.R.I. ", 1979, 0, True, bankrdrhodei 

Slail Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of South Carolina", "Bankr. D.S.C.", 1979, 0, True, "bankrdsout 

hcarolina", "bnkrdsc") n m M , . 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of South Dakota", "Bankr. D.S.D.", 1979, 0, True, bankrsouthda 

kota", "bnkrdsd"} „ . _ _ _ „, 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Tennessee", "Bankr. E.D. Tenn.", 1979, 0, True, ban 
kredtennessee" , "bnkredtenn" , "bankredtn" , "bnkredtn") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Middle District of Tennessee", "Bankr. M.D. Tenn.", 1979, 0, True, bank 
rwdtennessee" , "bnkrmdtenn" , "bankrmdtn", " bnkrmdtn " ) 

Spre NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Tennessee", "Bankr. W.D. Tenn.", 1979, 0, True, ban 
krwdtl&nessee" , "bnkrwdtenn" , "bankrwdtn", "bnkrwdtn") 

S|| NewCourt = AddCourt (NewCourtGroup, "U S. Bankruptcy Court, Northen District of Texas", "Bankr. N.D. Tex.", 1979, 0, True, 'bankrndt 
exasC>bnkrndtex" , "bankrndtx", "bnkrndtx") 

sll NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Texas", "Bankr. E.D. Tex.", 1979, 0, True, bankredt 
exas'V i-bnkredtex" , "bankredtx", "bnkredtx") 

SeJ NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Souther District of Texas", "Bankr. S.D. Tex.", 1979, 0, True, bankrsdt 
exas ill" bnkr sdtex " , "bankrsdtx" , "bnkrsdtx") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Texas", "Bankr. W.D. Tex.", 1979, 0, True, "bankrwdt 
exasff^' "bnkrwdtex" , "bankrwdtx", "bnkrwdtx") 

Sfet NewCourt - AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Utah", "Bankr. D. Utah", 1979, 0, True, "bnkrdutah , bankrd 
ut " , ~*&nkrdut " ) „ 

d|| NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of Vermont", "Bankr. D. Vt . " , 1979, 0, True, "bankrdvermont , 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Virginia", "Bankr. E.D. Va.", 1979, 0, True, "bankre 

dvirgfsnia" , "bnkredva") . rt m Ml _ 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Virginia", "Bankr. W.D. Va.", 1979, 0, True, bankrw 

dvirfinia", "bnkrwdva") t ^ nr ^^ 

|#|: NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Washington", "Bankr. E.D. Wash.", 1979, 0, True, ba 
nkre&wltshington" , "bnkredwash" , "bankredwa" , "bankredwn", "bnkredwn") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Washington", "Bankr. W.D. Wash.", 1979, 0, True, ba 
nkrwlwashington" , "bnkrwdwash" , "bankrwdwa", "bankrwdwn", "bnkrwdwn") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of West Virginia", "Bankr. N.D.W. Va.", 1979, 0, True, 
"baSkrndwestvirginia" , "bnkrndwva" , "bankrndwv" , "bnkrndwv" ) 

|e£ NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, Southern District of West Virginia", "Bankr. S.D.W. Va.", 1979, 0, True, 
"bankrsdwestvirginia" , " bnkrsdwva " , " bankr sdwv " , "bnkrsdwv") _ 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Wisconsin", "Bankr. E.D. Wis.", 1979, 0, True, bank 
redwi scons in " , "bnkredwis", " bankr e dwi " , "bnkredwi") t 

Set NewCourt - AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Wisconsin", "Bankr. W.D. Wis.", 1979, 0, True, bank 
rwdwi scons in" , " hrik rwdwi s " , "bankrwdwi" , "bnkrwdwi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Wyoming", "Bankr. D. Wyo.", 1979, 0, True, "dwyommg , bnkr 
dwyo", "bankrdwy", "bnkrdwy") . „„„„ - m , 

Set NewCourt - AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the First Circuit", "B.A.P. 1st Cir.", 1979, 0, True, ^ bankrappp 
Istcir", "bnkrappplstcir", "bankrlstcir " , "bnkrlstcir " , "baplcir", "bapccalst", "bapccal", "bapcal", "bapcalst", "bapcirl", "bapf irstcir" ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Second Circuit", "B.A.P. 2d Cir.", 1979, 0, True, "bankrappp 
2dcir", "bnkrappp2dcir" , "bankr2dcir" , "bnkr2dcir", "bankrapp2ndcir" , "bap2cir", "bapcca2d", "bapcca2", "bapca2", "bapca2d" , "bapcir2", "ba 
psecondcir", "bap2ndcir " , "bapcca2nd" , "bapca2nd") _ 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Third Circuit", "B.A.P. 3d Cir.", 1979, 0, True, bankrappp3 
dcir", "bnkrappp3dcir", "bankr3dcir " , "bnkr3dcir" , " bankr app3rdcir " , "bap3cir" , "bapcca3d" , "bapcca3", "bapca3", "bapca3d", "bapcir3", "bap 
thirdcir" , "bap3rdcir", "bapcca3rd" , "bapca3rd") _ 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Fourth Circuit", "B.A.P. 4th Cir.", 1979, 0, True, bankrapp 
p4thcir", "bnkrappp4thcir" , "bankr4thcir " , "bnkr4thcir " , "bap4cir" , "bapcca4th", "bapcca4", "bapca4", "bapca4th" , "bapcir4", "bapf our their" 

] Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Fifth Circuit", "B.A.P. 5th Cir.", 1979, 0, True, •■bankrappp 
Sthcir", "bnkrapppS their", "bankrSthcir " , "bnkrSthcir " , "bapScir", "bapccaSth" , "bapccaS", "bapcaS", "bapcaSth", "bapcirS" , "bapf if their" ) 

Set NewCourt - AddCourt {NewCourtGroup, "Bankruptcy Appellate Panel for the Sixth Circuit", "B.A.P. 6th Cir.", 1979, 0, True, "bankrappp 
6thcir", "bnkrappp6thcir", "bankrSthcir " , "bnkr6thcir " , "bapGcir", "bapcca6th", "bapcca6", "bapca6", "bapca6th" , "bapcir6", "bapsixthcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Seventh Circuit", "B.A.P. 7th Cir.", 1979, 0, True, "bankrap 
pp7thcir\ "bnkrappp7 their", "bankr7thcir" , "bnkr7thcir" , "bap7cir", "bapcca7th", "bapcca7", "bapca7", "bapca7th", "bapcir7", "bapseventhci 

} Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Eighth Circuit", "B.A.P. 8th Cir.", 1979, 0, True, "bankrapp 
p8thcir", "bnkrappp8 their", "bankr8thcir " , "bnkr8thcir " , "bap8cir", "bapcca8th" , "bapccaS" , "bapcaS", "bapca8th", "bapcir8" , "bapeightheir" 

1 Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Ninth Circuit", "B.A.P. 9th Cir.", 1979, 0, True, "bankrappp 
9thcir", "bnkrappp9thcir", "bankr 9 their" , "bnkr9thcir " , "bap9cir" , "bapcca9th", "bapcca9", "ba.pca.9" , "bapca9th", "bapcir9", "bapninthcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Tenth Circuit", "B.A.P. 10th Cir.", 1979, 0, True, "bankrapp 
plOthcir", " bnkr appplO the ir " , "bankrlOthcir " , "bnkrlOthcir " , "baplOcir" , " bapccal 0 th " , "bapccalO", "bapcalO", "bapcalOth", "bapcirlO", "bap 
tenthcir") 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Eleventh Circuit", "B.A.P. 11th Cir.", 1979, 0, True, 'bankr 
apppllthcir", "bnkr appp 11 their " , "bankr 11 their " , "bnkrllthcir " , "bapllcir", "bapccallth" , "bapccall", "bapcall", " bapcal 1 th " , "bapcirll", " 
bapeleventhcir" ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the D.C. Circuit", "B.A.P. D.C. Cir.", 1979, 0, True, "bankrappp 
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dccir" , "bnkrapppdccir" , "bankrdccir " , "bnkrdccir" , "bapccadc" , "bapcirdc", "bapdistrictof columbiacir " ) 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Judicial Panel on Multidistrict Litigation") 
Set NewCourt = AddC our t {NewCourtGroup, "Judicial Panel on Multidistrict Litigation", " J.P.M.L. " , 1968 r 0, True) 

Set NewCourt = AddC our t (NewCourtGroup, "Special Court, Regional Rail Reorganization Act", "Regional Rail Reorg. Ct.", 1973, 0, True) 
NewCourtGroup .NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Tax Court") 

Set NewCourt = AddCourt (NewCourt Group, "Tax Court", "T.C.", 1942, 0, True, "taxct") 

Set NewCourt = AddC our t{ NewCourt Group, "Board of Tax Appeals" , "B.T.A.", 1924, 1942, True, "bdtaxapp", " board txapp " ) 
NewCourtGroup. NonParal lelReporters .Add 1 
NewCourtGroup .NonParal lelReporters .Add 2 

Set NewCourtGroup = AddCourtGroup (NewJur , "United States Court of Veterans Appeals") 

Set NewCourt = AddC our t {NewCourtGroup, "U.S. Court of Veterans Appeals", "Vet. App.'\ 1988, 0, True, "vetctapp", "vetappct") 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup - AddCourtGroup (NewJur, "United States Court of Appeals for the Armed Forces") 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. Court of Appeals for the Armed Forces", "C.A.A.F.", 1975, 0, True, "ctapparmedf orces" , "ct 
appaf", "ctapparmedf", " appctarmedf orces " , "appctaf") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Military Appeals" , "CM. A.", 1951, 1975, True, "ctmilapp", "ctmilitaryapp ) 
NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

Set NewCourtGroup = AddCourtGroup (NewJur , "Courts of Military Review") 

Set NewCourt = AddCourt {NewCourtGroup, "Courts of Military Review", "A.C.M.R.", 0, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Courts of Military Review", "A. F.C.M.R. " , 0, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Courts of Military Review", "C .G.C.M.R. " , 0, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Courts of Military Review", "N-M.C.M.R. " , 0, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Boards of Review", "A.B.R.", 0, 0, True) 
NewCourt Group. NonParal lelReporters .Add 1 
NewCourtGroup. NonParal lelReporters .Add 2 




End Sub 



Private Sub AddFederalOldCircuitCourts { ) 



Dim NewCourt As cCourt 

Efeb NewCourtGroup As cCourt Group 

I5fm bcCourt As cCourt 

strFullName As String 

Set NewCourtGroup - AddCourtGroup (mbcJurisdict ions { "Federal ") , "Circuit Courts") 

4|l Each bcCourt In mbc Jurisdictions ( "Federal" >. Courts 

If bcCourt .CourtGroup.FullName = "District Courts" Then 
M strFullName = "U.S. Circuit Court" & Right $ (bcCourt . FullName, Len (bcCourt .FullName) - 19) 

Set NewCourt = AddCourt (NewCourtGroup, strFullName, "C.C." & bcCourt . AbrvName , 0, 1912, True) 
kU End If 
N*|xt bcCourt 

NlwCourtGroup .NonPar all elReporters , Add I 
End &ub 

Private Sub AddAlaO 

» i s 

f"||i NewJur As c Jurisdiction 
_Im NewCourtGroup As cCourtGroup 
§im NewCourt As cCourt 

|e£ NewJur = AddJurisdiction{ "Alabama" , "Ala.", "al") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Supreme Court", "", 1840, 0, False, "suprct", "supct", "set") 



NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Civil Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Civil Appeals", "Civ. App.", 1969, 0, False, "appciv") _ 
Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Criminal Appeals", "Crim. App.", 1969, 0, False, "appcrim") 
Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Appeals", "Ct. App.", 1910, 1968, False, "appct" , "app") 



NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup .NonPar all elReporters .Add 1 



End Sub 



Private Sub AddAlaskaO 



Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Alaska" , "Alaska", "ak") 
Set NewCourtGroup = AddCourtGroup {NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Alaska Supreme Court " , "", 1960, 0, False, "suprct", "supct", "set") 
NewCourtGroup. NonParal lelReporters .Add 2 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Alaska Court of Appeals", "Ct. App.", 1980, 0, False, "appct", "app") 
NewCourtGroup .NonParallelReporters . Add 2 



Set NewCourtGroup = AddCourtGroup (NewJur , "District Courts of Alaska") 

Set NewCourt = AddCourt (NewCourtGroup, "District Courts of Alaska", "D. Alaska", 1884, 1959, True, "dal") 
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NewC our tGr oup. Para lie IReporters. Add 2 
NewCourtGroup . Paral le IReporters . Add 1 
NewCour tGr oup. Par all e IReporters .Add 3 

NewCourtGroup. NonPara lie IReporters .Add 2 

NewCourtGroup. NonParalle IReporters .Add 1 

NewCourtGroup. NonPara lie IReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "United States District Courts") 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. District Courts for California", "D. Cal . \ 1867, 1884, True) 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. District Courts for Oregon", -D. Or.", 1867, 1884, True) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Courts of Washington", "D. Wash.", 1867, 1884, True) 




NewCourtGroup. Par all elReporters .Add 2 
NewCourtGroup . Paral 1 elReporters . Add 3 

NewCourtGroup .NonParallelReporters .Add 1 
NewC our tGr oup. NonPar all elReporters .Add 2 



End Sub 



Private Sub AddAriz ( ) 



Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdict ion { "Arizona" , "Ariz.", "az") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Arizona Supreme Court", "", 1866, 0, False, "suprct", "supct", "set") 



NewCourtGroup. Para lie IReporters. Add 1 
NewCourtGroup . Para lie IReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

S|fe NewCourt = AddCourt (NewCourtGroup , "Arizona Court of Appeals", "Ct. App.", 1965, 0, False, "appct", "app") 

N0CourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Privf£f Sub AddArkO 

pjfm NewJur As c Jurisdiction 

Sim NewCourtGroup As cCourtGroup 

Sim NewCourt As cCourt 

rn 

|ft NewJur = AddJurisdiction ( "Arkansas" , "Ark.", "ar") 
||t NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

f§jb NewCourt = AddCourt (NewCourtGroup , "Arkansas Supreme Court", "", 1837, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
I&SWC our tGr oup. ParallelReporters .Add 2 

Ij^wCour tGr oup. NonPar all elReporters .Add 2 
NewCourtGroup . NonParal 1 elReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Arkansas Court of Appeals", "Ct. App.", 1979, 0, False, "appct", "app") 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



End Sub 



Private Sub AddCal ( ) 



Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdicti on ( "Calif ornia" , "Cal.", "ca") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "California Supreme Court", "", 1850, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 
NewCourtGroup . ParallelReporters .Add 3 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters . Add 1 
NewCourtGroup .NonParallelReporters .Add 3 
NewCourt Group. NonParal lei Reporters .Add 4 



Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeal") 

Set NewCourt = AddCourt (NewCourtGroup, "California Court of Appeals", "Ct. App.", 1905, 0, False, "appct", "app") 

Set NewCourt = AddCourt (NewCourtGroup, "California District Court of Appeal", "Dist. Ct. App.", 1905, 0, False, "distappct") 
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NewC our t Group. ParallelReporters. Add 1 
NewCourtGroup. ParallelReporters. Add 3 

NewCourtGroup. NonParal lelReporters .Add 3 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Appellate Departments of the Superior Court") 

Set NewCourt = AddCourt {NewCourtGroup, "California Appellate Departments of the Superior Court", "App. Dep't Super. Ct.", 1929, 0, Pals 

e) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 3 

NewCourtGroup. NonParal lelReporters . Add 3 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddColoO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As c Court 

Set NewJur = Add Jurisdicti on ( "Colorado" , "Colo.", "co") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Colorado Supreme Court", " \ 1864, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 
NewCourtGroup . NonParallelReporters . Add 3 

Set NewCourtGroup - AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Colorado Court of Appeals", "Ct. App.", 1891, 0, False, "appct", "app") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 
NewCourtGroup .NonParallelReporters .Add 3 

End fub 

Private Sub AddConn ( ) 

IiiRi NewJur As c Jurisdiction 

£j£m NewCourtGroup As cCourtGroup 

Bim NewCourt As cCourt 

§el: NewJur = Ad dJurisdict ion ( "Connecticut " , "Conn.", "ct"} 
i!i NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

get NewCourt = AddCourt (NewCourtGroup, "Connecticut Supreme Court", " " , 1789, 0, False, "suprct", "supct", "set") 

JfceWCourtGroup . ParallelReporters .Add 1 
IjewC our t Group. ParallelReporters .Add 2 

NewCourtGroup . Nonpar a 1 lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup - AddCourtGroup (NewJur , "Appellate Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Appellate Court" , "App. Ct.", 1983, 0, False, "ctapp", "app") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Superior Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Superior Court", "Super. Ct.", 1935, 0, False, "supct") 
Set NewCourt = AddCourt {NewCourtGroup, "Connecticut Court of Common Pleas", "CP.", 1935, 0, False) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 
NewCourtGroup . NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "Circuit Court") 

Set NewCourt = AddCourt {NewCourtGroup, "Connecticut Circuit Court", "Cir. Ct.", 1961, 0, False) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddDel ( ) 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 



MS 



I16> 
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Dim NewCourt As cCourt 

Set NewJur = AddJurisdict ion { "Delaware" , "Del.", "de") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Supreme Court", " " , 1792, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Chancery") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Court of Chancery", "Ch.", 1814, 0, False) 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup. NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Superior Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Superior Court", "Super. Ct.", 1951, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Superior Court and Orphans' Court", "Super. Ct . & Orphans' Ct." , 1951, 0, False) 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Family Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Family Court", "Fam. Ct.", 1977, 0, False) 
NewCourtGroup. NonParallelReporters .Add 2 

End Sub 

Private Sub AddDCO 

E&A NewJur As c Jurisdiction 

I£fr& NewCourtGroup As cCourtGroup 

Ijfcft NewCourt As cCourt 

§e| NewJur = AddJurisdiction( "District of Columbia", "D.C.") 
SSt NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Mt NewCourt = AddCourt (NewCourtGroup, "District of Columbia Court of Appeals", "", 1943, 0, False, "ctapp" , "app", "appct", "app") 
S&fc NewCourt = AddCourt (NewCourtGroup, "District of Columbia Municipal Court of Appeals", " " , 1943, 0, False, "munctapp", "munappct") 
NewCourtGroup . Nonpar a 1 lelReporters . Add 2 

£ft NewCourtGroup = AddCourtGroup (NewJur , "United States Court of Appeals for the District of Columbia") 

s|fc NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Appeals for the District of Coumbia Circuit", "Cir.", 0, 0, False, "cca" , "cir\ 
" ca " h 

Set NewCourt = AddCourt {NewCourtGroup, "Supreme Court of the District of Columbia", "" , 1841, 1942, False) 

E^wCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 3 

End fub 

Priv|te Sub AddFlaO 

Dim NewJur As c Jurisdiction 

ffm NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdict ion ( "Florida" , "Fla.'\ "fl") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida Supreme Court", "", 1846, 0, False, "suprct", "supct", "set") 
NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 
NewCourtGroup . NonParallelReporters . Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "District Court of Appeal") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida District Court of Appeal", "Dist. Ct. App.", 1957, 0, False, "distappct") 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "Circuit Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida Circuit Court", "Cir. Ct.", 0, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Florida County Court", "County Ct.", 0, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup , "Florida Public Service Commission", "P.S.C.", 0, 0, False) 

NewCourtGroup . NonParallelReporters . Add 3 
NewCourtGroup . NonParallelReporters . Add 4 

End Sub 

Private Sub AddGaO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJuri sdict ion ( "Georgia" , "Ga.") 
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Set NewCourtGroup - AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Georgia Supreme Court", "", 1846, 0, False, "suprct", "supct", "set") 

NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Georgia Court of Appeals", "Ct. App.", 1907, 0, False, "appct" , "app") 

NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddHawO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourt Group 

Dim NewCourt As c Court 

Set NewJur = AddJur isdict ion ( "Hawaii" , "Haw.", "hi") 

Set NewCourtGroup ~ AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Hawaii Supreme Court", "", 1847, 0, False, "suprct", "supct", "set") 

NewCourtGroup. Paral lelRepor ters .Add 1 
NewCourtGroup. Paral lelRepor ters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Intermediate Court of Appeals") 

NewCourt = AddCourt (NewCourtGroup, "Hawaii Intermediate Court of Appeals", "Ct. App.", 1980, 0, False, "appct", "app") 

N^-fCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NiwCourtGroup .NonParallelReporters .Add 1 

End §5£ 

Privafee Sub AddldahoO 

Djfcm NewJur As cJurisdiction 

fffffi NewCourtGroup As cCourtGroup 

%Liti NewCourt As c Court 

sjl NewJur = AddJur isdict ion ( ■ Idaho " , " Idaho" , " id" ) 

Hi NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

ggt NewCourt = AddCourt {NewCourtGroup, "Idaho Supreme Court", "", 1866, 0, False, "suprct", "supct", "set") 

ifewC our t Group . Paral lelRepor ters . Add 1 
liewCourtGroup . Paral lelRepor ters .Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup , "Idaho Court of Appeals", "Ct. App.", 1982, 0, False, "appct", "app") 

NewCourtGroup. Paral lelRepor ters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddlllO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdiction( "Illinois" , "111.", "il") 
Set NewCourtGroup - AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Supreme Court", "", 1819, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 
NewCourtGroup . ParallelReporters . Add 3 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Appellate Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Appellate Court", "App. Ct.", 1877, 0, False, "ctapp", "app") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 
NewCourtGroup. ParallelReporters .Add 3 
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NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddC our t Group (New Jur, "Court of Claims") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Court of Claims", "Ct. CI.", 1889, 0, False) 
NewCourtGroup . NonParallelReporters . Add 1 

End Sub 

Private Sub AddlndO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJuri sdict ion (" Indiana" , "Ind.", "in") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt {NewCourtGroup, "Indiana Supreme Court", "", 1817, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Indiana Court of Appeals", "Ct. App.", 1890, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParall el Reporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddlowaO 

D^yri NewJur As cJuri sdict ion 

NewCourtGroup As cCourtGroup 
dJibl NewCourt As cCourt 

3@f NewJur - AddJur i sdict ion { " Iowa" , "Iowa", "ia") 

4|| NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Iowa Supreme Court", "", 1855, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
lle'wC our t Group . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

k&i NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

§fh NewCourt = AddCourt (NewCourtGroup , "Iowa Court of Appeals", "Ct. App.", 1977, 0, False, "appct", "app") 
r||wCourt Group . NonParal lelReporters . Add 2 

End Sub 

St-!: 

Priv#t-fe Sub AddKanO 

Ipi&i NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdict ion ( "Kansas" , "Kan.", "ks" ) 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Kansas Supreme Court", "", 1858, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Kansas Court of Appeals", "Ct. App.", 1895, 0, False, "appct", "app") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

End Sub 

Private Sub AddKyO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdict ion ( "Kentucky " , "Ky.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Kentucky Supreme Court", "", 1976, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Kentucky Court of Appeals", "" , 1785, 1975, False, "appct", "app") 
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NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup , "Kentucky Court of Appeals", "Ct. App.", 1976, 0, False, "appct", "app") 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 3 

End Sub 

Private Sub AddLaO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdict ion ( "Louisiana" , "La.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Louisiana Supreme Court" , "", 1813, 0, False, "suprct", "supct", "set") 
Set NewCourt = AddCourt (NewCourtGroup , "Superior Court of Louisiana", "", 1809, 1812, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Superior Court of the Territory of Orleans", "Orleans", 1809, 1812, True) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Louisiana Court of Appeal", "Ct. App.", 1881, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

N^ffCourtGroup . NonParallelReporters . Add 2 
N^fCourtGroup . NonParallelReporters . Add 1 

^ I 

End SuS 

I 

Priva£| Sub AddMeO 

y i 

Dim NewJur As cJurisdiction 

§im NewCourtGroup As cCourtGroup 

Wim NewCourt As cCourt 

sit NewJur = AddJur isdict ion ( "Maine" , "Me."} 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Judicial Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Maine Supreme Judicial Court", "", 1820, 0, False, "suprct", "supct", "set" 

|F IftfCourtGroup . ParallelReporters . Add 1 
ijl^CourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

End Job 

Private Sub AddMdO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur - AddJur isdict ion { "Maryland" , "Md.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Maryland Court of Appeals", "", 1770, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourt Group. NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup - AddCourtGroup (NewJur , "Court of Special Appeals") 

Set NewCourt - AddCourt (NewCourtGroup, "Maryland Court of Special Appeals", "Ct. Spec. App.", 1967, 0, False) 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddMassO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur isdict ion ( "Massachusetts" , "Mass.", "ma") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Judicial Court") 
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Set NewCourt = AddCourt (NewCourtGroup, "Massachusetts Supreme Judicial Court", " " , 1804, 0, False, "suprct" , "supct", "set" 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup.NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Appeals Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Massachusetts Appeals Court" , "App. Ct." , 1972, 0, False, "ctapp", "app") 

NewCourtGroup- ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewC our t Gr oup . NonPa r a 1 1 e 1 Rep orters.Add 2 
NewCourtGroup . NonParallelRepor ters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "District Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Massachusetts District Court", "Dist. Ct.", 1936, 0, False) 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 3 

End Sub 

Private Sub AddMichO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdic t ion ( "Michigan" , "Mich.", "mi") 
Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Michigan Supreme Court", 1805, 0, False, "suprct", "supct", "set") 

NewCourtGroup . Paral lelReporter s . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

tf&SrCour tGr oup. NonParallelRepor ters .Add 2 
N^CourtGr oup. NonParallelRepor ters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Michigan Court of Appeals", "Ct. App.", 1965, 0, False, "appct", "app") 

\ I 

NewCourtGroup . ParallelReporters . Add 1 
CourtGroup . ParallelReporters .Add 2 

ifewCour tGroup . NonParallelRepor ters . Add 2 
|?gVCour tGroup . NonParallelReporter s . Add 1 

sJH: NewCourtGroup = AddCourtGroup (NewJur , "Court of Claims") 

Set NewCourt = AddCourt (NewCourtGroup, "Michigan Court of Claims", "Ct. CI.", 1938, 1942, False) 
NewCourtGroup . NonParal lelRepor ters . Add 1 

End §afo 

Priv||£ Sub AddMinnO 

Drm NewJur As cJurisdiction 

lim NewCourtGroup As cCourtGroup 

Mhl NewCourt As c Court 

S££ NewJur = AddJuri sdicti on ( "Minnesota" , "Minn.", "rem") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt - AddCourt (NewCourt Group, "Minnesota Supreme Court " , " " , 1851, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCour tGroup. NonParal lelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Minnesota Court of Appeals", "Ct. App.", 1983, 0, False, "appct", "app") 
NewCourtGroup -NonParallelReporters .Add 2 

End Sub 

Private Sub AddMiss ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur i sdicti on ( "Mississippi" , "Miss.", "ms") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Mississippi Supreme Court", " " , 1818, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters . Add 1 
NewCourtGroup .NonParallelReporters .Add 3 

End Sub 

Private Sub AddMoO 
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Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = Add Jurisdict ion ( "Missouri" , "Mo.", "mo") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt { NewCourt Group, "Missouri Supreme Court " , " " , 1821, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup .KonPar all elReporters .Add 2 
NewCour tGroup. NonPar allelReporters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Missouri Court of Appeals", "Ct. App." , 1876, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup.NonParall elReporters .Add 2 
NewCourtGroup.NonParall elReporters .Add 1 

End Sub 

Private Sub AddMont ( ) 

Dim NewJur As c Jurisdict ion 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction( "Montana" , "Mont.", "mt") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Montana Supreme Court", "", 1868, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup.NonParall elReporters .Add 2 
r^WCourtGroup. Nonpar all elReporters .Add 1 
NewCourtGroup.NonParall elReporters .Add 3 

End Su£ 

Priva^ Sub AddNebO 

Dim NewJur As cJurisdiction 

EgMk NewCourtGroup As cCourtGroup 

D^m NewCourt As cCourt 

Set NewJur = AddJurisdic t ion ( "Nebraska" , "Neb.", "ne") 
sS&f NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Nebraska Supreme Court", " " , I860, 0, False, "suprct", "supct", "set") 

N^CourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

%wCourtGroup .NonParall elReporters .Add 2 
NewCourtGroup.NonParall elReporters .Add 1 

NewCourtGroup - AddCourtGroup (NewJur , "Court of Appeals") 
Set NewCourt = AddCourt (NewCourtGroup, "Nebraska Court of Appeals", "Ct. App.", 1992, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParall elReporters . Add 2 
NewCourtGroup . NonParal 1 elReporters . Add 1 

End Sub 

Private Sub AddNev { ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur - AddJurisdic t ion ( "Nevada" , "Nev. "nv" ) 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup , "Nevada Supreme Court", "", 1865, 0, False, "suprct", "supct", "set"} 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourt Group. NonParal lelReporters. Add 1 

End Sub 

Private Sub AddNH ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction{ "New Hampshire", "N.H.", "nh") 
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Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt - AddCourt (NewCourtGroup , "New Hampshire Supreme Court", "", 1816, 0, False, "suprct", "supct", "set") 



NewCourtGroup. Par alls IReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup, NonParallelReporters .Add 2 
NewCour t Group . Non Par a 1 1 e 1 Rep o r t er s . Add 1 



End Sub 



Private Sub AddNJO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As c Court 



Set NewJur = AddJurisdiction { "New Jersey", "N.J.") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "New Jersey Supreme Court", 1790, 0, False) 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Superior Court") 
Set NewCourt - AddCourt (NewCourtGroup , "New Jersey Superior Court" 



Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt {NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup , 
Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup , 



"Super. Ct. App. Div. \ 1790, 0, False) 
"New Jersey Superior Court", "Super. Ct. Ch. Div.", 1790, 0, False) 
"New Jersey Superior Court", "Super. Ct, Law Div.", 1790, 0, False) 
"New Jersey Court of Chancery", "Ch.", 1790, 0, False) 
"New Jersey Supreme Court", "Sup. Ct.", 1790, 0, False, "suprct 
"New Jersey Perogative Court" , "Perog. Ct . " , 1790, 0, False) 



"supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 

l^VCourtGroup. NonParallelReporters .Add 2 
l^^rCourt Group. NonParallelReporters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , " County Court " ) 

S-et NewCourt = AddCourt (NewCourtGroup, "New Jersey County Court", "County Ct.", 1790, 0, False) 

4fwCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

if&wCourtGroup , NonParallelReporters .Add 2 
^||rCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup {NewJur , "Tax Court") 

Set NewCourt = AddCourt (NewCourtGroup , "New Jersey Tax Court", "Tax Ct.", 1979, 0, False) 
fJevCour tGroup . NonParal lelRepor ters . Add 1 

End §yb 

PrivSJs Sub AddNM() 

Dim NewJur As cJurisdiction 

fSn NewCourtGroup As cCourtGroup 

"pfm NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "New Mexico", "N.M.") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "New Mexico Supreme Court", "", 1883, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt {NewCourtGroup , "New Mexico Court of Appeals", "Ct. App.", 1967, 0, False, "appct", "app") 



NewCourtGroup . ParallelReporters , Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCour tGroup. NonParal lelRepor ters .Add 1 



End Sub 



Private Sub AddNY ( ) 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As c Court 



Set NewJur = AddJurisdiction { "New York", "N.Y.") 



Set NewCourtGroup - AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "New York Court of Appeals", "", 1847, 0, False, "ctapp", "app", "appct", "app") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 
NewCourtGroup . ParallelReporters .Add 3 
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NewCourt Group .NonParallelReporters , Add 2 
NewCourt Group .NonParallelReporters . Add 1 
NewCourt Group . NonParallelReporters . Add 3 

Set NewCourtGroup = AddCourtGroup {NewJur , "Court for the Correction of Errors") 
Set NewCourt = AddC our t {NewCourtGroup, "New York Court for the Correction of Errors", " " , 1791, 1847, False) 

Set NewCourt = AddC our t {NewCourtGroup, "New York Supreme Court of Judicature", "Sup. Ct.", 1791, 1847, False, "suprct", "supct", "set") 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Chancery") 

Set NewCourt = AddC our t {NewCourtGroup, "New York Court of Chancery", "Ch.", 1814, 1847, False) 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court, Appellate Division") 

Set NewCourt = AddCourt (NewCourtGroup, "New York Supreme Court, Appellate Division", "App. Div.", 1847, 0, False, "sctappdiv" , "supctap 
pdiv" ) 

NewCourtGroup . ParallelRepor ter s . Add 3 
NewCourtGroup . ParallelRepor ter s . Add 4 

NewCourtGroup .NonParallelReporters .Add 4 
NewCourtGroup .NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "Other lower 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

Set NewCourt = AddCourt (NewCourtGroup, "New York other 

NewCourtGroup . ParallelReporters . Add 3 
NewCourtGroup . ParallelReporters . Add 4 

NewCourtGroup .NonParallelReporters .Add 4 
NewCourtGroup . NonParallelReporters . Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "Other lower 
Set NewCourt = AddCourt (NewCourtGroup, "New York other 
Sg.t NewCourt = AddCourt (NewCourtGroup , "New York other 
NewCourt = AddCourt {NewCourtGroup, "New York other 
S©4 NewCourt = AddCourt (NewCourtGroup, "New York other 
§ki NewCourt = AddCourt {NewCourtGroup, "New York other 
Sqf NewCourt = AddCourt (NewCourtGroup, "New York other 
NewCourtGroup .NonParallelReporters .Add 3 

End §uj? 

Private Sub AddNCO 

W^h NewJur As cJurisdiction 
EK^gi NewCourtGroup As c Court Group 
Dt&t NewCourt As c Court 

Stet NewJur = AddJurisdiction( "North Carolina", "N.C.", 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Jei NewCourt = AddCourt (NewCourtGroup, "North Carolina Supreme Court", "", 1778, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

^e^Cour tGroup . NonParallelReporters . Add 2 
NewCourtGroup .NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "North Carolina Court of Appeals", "Ct. App.", 1968, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup -NonParallelReporters .Add 2 
NewCourtGroup . NonParal lelRepor ters . Add 1 

End Sub 

Private Sub AddND { ) 

Dim NewJur As cJurisdiction 
Dim NewCourtGroup As cCourtGroup 
Dim NewCourt As cCourt 

Set NewJur - AddJurisdiction ( "North Dakota", "N.D.", "ndakota") 
Set NewCourtGroup - AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt {NewCourtGroup, "North Dakota Supreme Court", "", 1890, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court of Dakota") 

Set NewCourt = AddCourt (NewCourtGroup, "Supreme Court of Dakota", "Dakota", 1867, 1889, True) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 



153 



courts" ) 
lower courts' 
lower courts" 
lower courts' 1 
lower courts' 1 
lower courts' 1 
lower courts' 1 



"App. 
" Sup . 
"Ct. 
"Civ. 



Term 
Ct . " 
CI . " , 
Ct . " 



"Crim. Ct. 
"Fam. Ct." 



", 1888, 0, False) 
1888, 0, False) 

1888, 0, False) 

1888, 0, False) 
', 1888, 0, False) 
1888, 0, False) 



courts before 1888") 
lower courts before 1888", 
lower courts before 1888", 
lower courts before 1888", 
lower courts before 1888", 
lower courts before 1888", 
lower courts before 1888", 



"App. Term.", 1844, 1887, False) 
"Sup. Ct.", 1844, 1887, False) 
"Ct. CI.", 1844, 1887, False) 
"Civ. Ct.", 1844, 1887, False) 
"Crim. Ct,", 1844, 1887, False) 
"Fam. Ct.", 1844, 1887, False) 



"ncarolina" ) 



NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 
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Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals of Worth Dakota") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals of North Dakota", "Ct. App.", 1987, 0, False, "appct", "app") 
NewCourtGroup. NonParallelReporters .Add 2 

End Sub 

Private Sub AddOhioO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdict ion ( "Ohio" , "Ohio", "oh") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup , "Ohio Supreme Court", "", 1821, 0, False, "suprct" , "supct", "set") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup {NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Ohio Court of Appeals", "Ct. App.", 1913, 0, False, "appct", "app") 

NewCourtGroup . Paral lelReporters .Add 1 
NewCourtGroup . ParallelReporter s . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Other law courts") 

Set NewCourt = AddCourt (NewCourtGroup, "Other law courts", "", 1840, 0, False) 

NewCourtGroup .NonParallelReporters .Add 1 
NewCourtGroup .NonParallelReporters .Add 3 
NewCourtGroup .NonParallelReporters .Add 4 
NewCourtGroup . NonParal 1 e IRepor t er s . Add 5 
NstwCourtGroup. NonParal lelReporters. Add 6 
NjswCour t Gr oup . NonPar a 1 1 e 1 Rep or t e r s . Add 7 
I^frCourtGroup . NonParal lelReporters. Add 8 
NewCourtGroup. NonParal lelReporters. Add 9 
Nje^CourtGroup . NonParallelReporters . Add 10 
NewCourtGroup. NonParallelReporters .Add 11 
NewCourtGroup. NonParallelReporters .Add 12 
NewCourtGroup .NonParallelReporters .Add 13 

End Sub 

Private Sub AddOklaO 

Dim NewJur As cJurisdiction 

fjjjLffL NewCourtGroup As cCourtGroup 

iQJi NewCourt As c Court 

SlI NewJur = AddJurisdiction( "Oklahoma" , "Okla." , "ok") 
§&i NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

§St NewCourt = AddCourt {NewCourtGroup, "Oklahoma Supreme Court", "", 1890, 0, False, "suprct", "supct", "set") 

NewCourtGroup . Paral lelReporters .Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup. NonParal lelReporters. Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals of Indian Territory") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals of Indian Territory", "Indian Terr.", 1896, 1907, True, "indterr") 

NewCourtGroup . Paral lelReporters .Add 1 
NewCourtGroup . Paral lelReporters .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Criminal Appeals") 

Set NewCourt = AddCourt (NewCourtGroup , "Oklahoma Court of Criminal Appeals", "Crim. App.", 1959, 0, False, "ctcrimapp" ) 
Set NewCourt = AddCourt (NewCourtGroup, "Oklahoma Criminal Court of Appeals", "Crim. App.", 1908, 1958, False, "ctcrimapp") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt {NewCourtGroup, "Oklahoma Court of Appeals", "Ct. App.", 1971, 0, False, "appct", "app") 
NewCourtGroup. NonParal lelReporters. Add 2 
End Sub 

Private Sub AddOrO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdict ion ( "Oregon" , "Or.") 
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Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Oregon Supreme Court", "", 1853, 0, False, "suprct", "supct", "set") 

NewC our tGr oup. Para lie IReporters. Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Oregon Court of Appeals", "Ct. App." , 1969, 0, False, "appct", "app") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup. ParallelReporters . Add 2 

NewCourtGroup. NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Tax Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Oregon Tax Court " , "T.C.", 1962, 0, False, "taxct", "taxcourt") 
NewCour t Gr oup .NonParallel Rep orters.Add 1 
End Sub 

Private Sub AddPaO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction( "Pennsylvania" , "Pa.", "penn") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Pennsylvania Supreme Court", "", 1754, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

N" jwCour tGr oup . Nonpar a 1 1 e 1 Rep or t e r s . Add 2 
N^|CourtGroup . NonParallelReporters , Add 1 

V I 

Sell NewCourtGroup = AddCourtGroup (NewJur , "Superior Court") 

S$J NewCourt = AddCourt {NewCourtGroup, "Pennsylvania Superior Court", "Super. Ct . " , 1895, 0, False) 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Commonwealth Court") 

get NewCourt = AddCourt (NewCourtGroup, "Pennsylvania Commonwealth Court", "Commw. Ct.", 1970, 0, False) 

NewCourtGroup . ParallelReporters . Add 1 
$§!?CourtGroup . ParallelReporters . Add 2 

l|0rCour tGr oup .NonParallelReporters .Add 2 
]|ewCour tGr oup .NonParallelReporters .Add 1 

Sfet NewCourtGroup = AddCourtGroup (NewJur , "Other lower courts") 

Jet NewCourt = AddCourt (NewCourtGroup, "Pennsylvania other lower courts", "", 1870, 0, False) 

NewCourtGroup . Non Paral lelReporters . Add 1 
NewCourtGroup . NonParallelReporters . Add 3 

End Sub 

Private Sub AddRI ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJuri s die ti on ( "Rhode Island", "R.I.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Rhode Island Supreme Court", " " , 1828, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCour tGr oup. NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddSCO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJuri sdict ion { "South Carolina", "S.C.", "scarolina") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt ~ AddCourt (NewCourtGroup, "South Carolina Supreme Court", " " , 1868, 0, False, "suprct", "supct", "set" 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 
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NewCourtGroup.NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddC our t (NewCourtGroup, "South Carolina Court of Appeals", "Ct. App.", 1983, 0, False, appct , app ) 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup. Par all elReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Courts of law") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina Courts of law", "L.", 1783, 1868, False, "law") 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Courts of equity") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina courts of equity", "Eq.", 1784, 1868, False, equity ) 
NewCourtGroup . NonParallelReporters . Add 1 

End Sub 

Private Sub AddSDO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourt Group 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction( "South Dakota", "S.D.\ "sdakota") 
Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "South Dakota Supreme Court", "", 1890, 0, False, "suprct", "supct , set ) 

NewCourtGroup. Par all elReporters .Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup , NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Jgf NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court of Dakota") 

NewCourt - AddCourt (NewCourtGroup , "Supreme Court of Dakota", "Dakota", 1867, 1889, True) 

NiwC our tGroup. Par all elReporters .Add 1 
ft§WCour tGroup . ParallelReporter s . Add 2 

HfcfrC our tGroup . NonParal lelReporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

33?.=; 

End S-tib 

Privajjb Sub AddTennO 

Bim NewJur As cJurisdiction 

Bdm NewCourtGroup As cCourtGroup 

©alft NewCourt As cCourt 

f s * 

NewJur = AddJurisdiction( "Tennessee" , "Tenn.", "tn") 

let NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") ( ^ 

Mt NewCourt = AddCourt (NewCourtGroup, "Tennessee Supreme Court " , "", 1791, 0, False, "suprct", "supct* , set ) 

fedwC our tGroup. Par all elReporters .Add 1 
Ife^wCourtGroup. ParallelReporter s .Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Tennessee Court of Appeals", "Ct. App.", 1925, 0, False, appct , app ) 

NewCourtGroup. Paral lelReporters. Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Criminal Appeals") _ 
Set NewCourt = AddCourt (NewCourtGroup, "Tennessee Court of Criminal Appeals", "Crim. App.", 1967, 0, False, ctcrimapp 

NewCourtGroup . Paral lelReporters .Add 1 
Ne wC our t Gr oup . Pa r a 1 1 e 1 Rep orters.Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup. Nonpar all elReporters .Add 1 

End Sub 

Private Sub AddTexO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJuri sdict ion ( "Texas" , "Tex.", "tx") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Supreme Court", "", 1840, 0, False, "suprct", "supct", "set") 



NewCourtGroup . Paral lelReporters .Add 1 
NewCourtGroup. Paral 1 elReporters. Add 2 



mPopulateJurisdictions - 20 



NewCourtGroup.NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddC our t Group {New Jur, "Court of Criminal Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Court of Criminal Appeals", "Crim. App.", 1891, 0, False, " ctcrimapp" ) 
Set NewCourt = AddCourt (NewCourtGroup, "Texas Court of Appeals", "Ct. App.", 1876, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters. Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup{NewJur , "Commission of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Commission of Appeals", "Comm'n App.", 1879, 0, False) 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddC our t Group {New Jur , "Courts of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Courts of Appeals", "App.", 1892, 0, False) 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddUtah{) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

NewJur = AddJur isdict ion ( "Utah." , "Utah", "ut") 

Sl% NewCourtGroup = AddCourtGroup {NewJur , "Supreme Court") 

£&i NewCourt = AddCourt (NewCourtGroup, "Utah Supreme Court " , "" , 1851, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

Nja&C our t Group . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

S$fe NewCourtGroup = AddCourtGroup {NewJur , "Court of Appeals") 

S#€ NewCourt = AddCourt (NewCourtGroup, "Utah Court of Appeals", "Ct. App.", 1987, 0, False, "appct", "app") 
NewCourtGroup. NonParallelReporters . Add 2 
End Sjpi? 

Privaj&fc Sub AddVtO 

IjkkjB NewJur As cJurisdiction 

D^Lm NewCourtGroup As cCourtGroup 

D^Gfi NewCourt As cCourt 

S%£ NewJur = AddJurisdic t ion { "Vermont " , "Vt.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Vermont Supreme Court", "", 1789, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

End Sub 

Private Sub AddVa{) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction{ "Virginia" , "Va." ) 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Virginia Supreme Court", " " , 1779, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Virginia Court of Appeals", "Ct. App.", 1985, 0, False, "appct", "app") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 



NewCourtGroup .NonParallelReporters .Add 2 
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NewCourtGroup. NonParal lelRepor ters .Add 1 

End Sub 

Private Sub AddWashO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction {"Washington", "Wash.", "wn" , "wa") 

Set NewCourtGroup = AddC ourt Group {NewJur , "Supreme Court") ,. „ . . „ x 

Set NewCourt = AddCourt (NewCourtGroup, "Washington Supreme Court" , »», 1854, 0, False, "suprct", "supct" , "set ) 

NewCourtGroup , ParallelRepor ter s . Add 1 
NewCourtGroup . Paral lelRepor ter s . Add 2 

NewCour t Group. NonPar allelRepor ter s .Add 2 
NewCourtGroup .NonParal lelRepor ter s . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals"} » anrjCt » " ant) " ) 

Set NewCourt = AddCourt {NewCourtGroup, "Washington Court of Appeals", »Ct. App. , 1969, 0, False, appct , app ) 

NewCourtGroup . Pa ral lelRepor ters .Add 1 
NewCourtGroup. Pa ral lelRepor ter s .Add 2 

NewCourtGroup. NonParal lelRepor ters .Add 2 
NewCourtGroup. Nonpar allelRepor ters .Add 1 

End Sub 

Private Sub AddWVaO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ("West Virginia", "W. Va.\ "wv\ "wvirginia 11 ) 

<M NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court of Appeals" ' ) ■■suDrct" "supct" 

S§§ NewCourt = AddCourt (NewCourtGroup, "West Virginia Supreme Court of Appeals', , 1864, 0, False, suprct , supct 

NewCourtGroup. Par allelRepor ters .Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 

NewCourtGroup .NonParal lelRepor ters . Add 2 
NewCourtGroup . NonParallelReporter s . Add 1 

End S*t& 

Priva"tl Sub AddWisO 

PiLm NewJur As cJurisdiction 

i£m NewCourtGroup As cCourtGroup 

Bftfcai NewCourt As cCourt 

#l| NewJur - AddJurisdiction ( "Wisconsin" , "Wis.", "wi") 

let NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") „ ■ 

l^t NewCourt = AddCourt (NewCourtGroup, "Wisconsin Supreme Court" , "», 1839, 0, False, "suprct", "supcf, set ) 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup .Nonpar allelRepor ters .Add 2 
NewCourtGroup .NonPar allelRepor ters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") „™mm 
Set NewCourt = AddCourt (NewCourtGroup, "Wisconsin Court of Appeals", »Ct. App.", 1978, 0, False, "appct", app ) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup , ParallelReporters . Add 2 

NewCourtGroup .NonParal lelReporters . Add 2 
NewCourtGroup . NonParallelRepor ter s . Add 1 

End Sub 

Private Sub AddWyoO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction { "Wyoming" , "Wyo." , "wy") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") ^ , „ , 

Set NewCourt = AddCourt (NewCourtGroup, "Wyoming Supreme Court", "", 1870, 0, False, "suprct , supct , set ) 

NewCourtGroup. Paral lelRepor ters. Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 

NewCourtGroup. NonParal lelRepor ters .Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 1 

End Sub 



Private Sub AddAmSamoaO 
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Dim NewJur As c Jurisdiction 
Dim NewCourtGroup As cCourtGroup 
Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction( "American Samoa", "Am. Samoa") 

Set NewCourtGroup = AddCourtGroup (NewJur, "High Court of American Samoa •) .. hiahct » "hiahcourtM 

Set NewCourt = AddCourt (NewCourtGroup, "High Court of American Samoa", "\ 1900, 0, False, highct , highcourt } 
NewCourtGroup .NonParal lelReporters .Add 1 



End Sub 

Private Sub AddCZO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As c Court 



Set NewJur = AddJuri sdict ion ( "Canal Zone", "C.Z.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "United States District Court for the Eastern ^rirt of Louisi^a;) 

Set NewCourt - AddCourt (NewCourtGroup, "U.S. District Court for the Eastern Distnct of Louisiana , E.D. La. , 1982, 0, True) 

NewCourtGroup .NonParal lei Reporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur. "United States District Court for the District of the Canal "> 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Court for the Distnct of the Canal Zone", -D.C.Z. , 1846, 1982, True) 

NewCour t Group. NonParal lelReporters .Add 3 

End Sub 

Private Sub AddGuamO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJur is diet ion ( "Guam" , "Guam") 

Set NewCourtGroup = AddCourtGroup (NewJur, "District Court of Guam, Appellate Division") 

S |l NewCourt = AddCourt (NewCourtGroup, "District Court of Guam, Appellate Division", "D. Guam App. Div. , 1951, 0, True) 

NewCourtGroup. NonParal lelReporters .Add 3 
NgyfC our tGroup. NonParal lelReporters .Add 4 

End S%13 

PrivdkM Sub AddNavajoO 

Dim NewJur As cJurisdiction 

dM NewCourtGroup As cCourtGroup 

D^| NewCourt As cCourt 

Set NewJur = Add Jurisdiction "Navajo Nation", "Navajo", "navaiionat ) 

get NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") ..=unrct" "supct" "set") 

||t NewCourt = AddCourt (NewCourtGroup, "Navajo Nation Supreme Court", "", 1969, 0, False, suprct , supct , set > 
NewCourtGroup .Nonpar all elReporters .Add 1 

lei NewCourtGroup = AddCourtGroup (NewJur, "District Court") -distct") 
NewCourt = AddCourt (NewCourtGroup, "Navajo Nation District Court", "D. Ct.», 1969, 0, False, distct ) 
ifewC our tGroup . NonParal lelReporters . Add 1 

End fub 

Private Sub AddNMarK) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJuri sdiction ( "Northern Mariana Islands", "N. Mar. I.", "nmi") 

Set NewCourtGroup = AddCourtGroup (NewJur, " Supreme Court " ) , qmrct . "sut>ct" "set") 

Set NewCourt = AddCourt (NewCourtGroup, "Northern Mariana Islands Supreme Court", , 1989, 0, False, suprct , supct , sec > 
NewCour tGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "District Court") m »n w M=>r- t « 1979 0 Tru 
Set NewCourt = AddCourt (NewCourtGroup, "District Court for the Northern Mariana Islands, Trial Division , D, N. Mar. I. , 1979, 0, Tru 

^ Set NewCourt = AddCourt (NewCourtGroup, "District Court for the Northern Mariana Islands, Appellate Division", "D. N. Mar. I. App. Div." 
' ^Set NewCouri: = AddCourt (NewCourtGroup, "Northern Mariana Islands Commonwealth Superior Court", "Commw. Super. Ct.", 1979, 0, False, "su 
PerC Set NewCourt = AddCourt (NewCourtGroup, "Northern Mariana Islands Commonwealth Trial Court", "Commw. Trial Ct.", 1979, 0, False, "trialc 
t") 

NewCour tGroup. NonParal lelReporters .Add 1 
End Sub 

Private Sub AddPRO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdic t ion (" Puerto Rico", "P.R.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") lle . 1T ^.. --^..x 

Set NewCourt = AddCourt (NewCourtGroup, "Puerto Rico Supreme Court", "", 1899, 0, False, "suprct", "supct , set ) 



NewCourtGroup . Paral lelReporters .Add 1 
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NewCour tGroup . Paral lelRepor ter s . Add 2 
End Sub 

Private Sub AddVI{) 

Dim NewJur As cJurisdiction 

Dim NewCour tGroup As cCour tGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdic ti on < "Virgin Islands", "V.I,") 
Set NewCourtGroup = AddC our tGroup {NewJur, "All courts") 

Set NewCourt = AddC our t (NewCour tGroup, "Virgin Islands, all courts", " u , 1917, 0, False) 
NewCour tGroup . Nonpar al lelRepor ter s . Add 1 

End Sub 



Private Function AddJuri edict ion {FullName As String, AbrvName As String, ParamArray Aliases ()) As cJurisdiction 
Dim varAliases As Variant 



Set AddJurisdiction = New cJurisdiction 
With AddJurisdiction 

.FullName = FullName 

.AbrvName = AbrvName 
End With 

varAliases = Aliases {) 

mbc Jurisdictions. Add AddJurisdiction, varAliases 
End Function 

Private Function AddCourtGroup ( Parent Jurisdiction As cJurisdiction, ByVal FullName As String) As cCourtGroup 

Set AddCourtGroup = New cCourtGroup 
Wpii AddCourtGroup 

.5* -FullName = FullName 

%z Set .Parent = Parent Jurisdiction 
E^d With 

P&jentJurisdiction.CourtGroups . Add AddCourtGroup, FullName 
mbcJuri sdict ions . AllCourtGroups .Add AddCourtGroup 

End Junction 

Priv^lf Function AddCourt {ByRef CourtGroup As cCourtGroup, ByRef FullName As String, ByRef AbrvName As String, _ 
ByRefJIfearStart As Long, ByRef YearEnd As Long, ByRef Jurisdictionlmplicit As Boolean, ParamArray Aliases {)) As cCourt 

Dim varAliases As Variant 

^st AddCourt = New cCourt 
tfljh AddCourt 

.FullName = FullName 

.AbrvName = AbrvName 
^ L .YearStart = YearStart 

.Jurisdictionlmplicit = Jurisdictionlmplicit 
Q If YearEnd > 0 Then .YearEnd = YearEnd Else .YearEnd = 9999 

Set .CourtGroup - CourtGroup 
ft* set .Parent = CourtGroup . Parent 
End With 



varAliases = Aliases {) 

AddCourt . Parent. Courts. Add AddCourt, varAliases 
mbc Jurisdict ions. AllCourts .Add AddCourt, varAliases 



End Function 
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Option Explicit 

Public Sub BCAutoExecO 

Call InsertMenuItemt "Tools", "BlueCheck Options ..." , "BlueCheckOptions" , True) 
Call InsertMenuItem( "Tools" , "&BlueCheck" , "BlueCheck", False) 

End Sub 

Private Sub insertMenuItemWenuName As String, Menultem As String, OnActionName As String, DividerAfter As Boolean) 

Dim cbmMenuBar As CommandBarPopup 
Dim cbbNewItem As CoramandBarButton 
Dim cbbFirstltem As CommandBarButton 
Dim cbcExistingltem As CommandBar Control 

1 If the menu item already exists, then exit the sub. 

Set cbcExistingltem = Word. CommandBars . FindControl {Tag: =MenuI tern) 
If Not cbcExistingltem Is Nothing Then Exit Sub 

■ if a divider bar should be added, then set the first item in the menu to a 

■ new group so that a divider will appear before it. 

Set cbmMenuBar = Word. CommandBars { "Menu Bar "). Controls (MenuName) 

If DividerAfter = True Then 

Set cbbFirstltem = cbmMenuBar. Controls (1) 

cbbFirstltem. BeginGroup = True 
End If 

' Add the menu item. 

Set cbbNewItem = cbmMenuBar . Controls .Add (Type: =msoControlButton, Before: =1, temporary : =True) 
With cbbNewItem 

.Caption = Menultem 

.Tag = Menultem 

.Enabled = True 

.OnAction = OnActionName 
Encl With 

End si! 

Public^Sub BCAutoClose { ) 

Call CloseAllHiddenDocuments 

d£tl RemoveMenultem( "BlueCheck Options...") 

Gail RemoveMenuItem( "&BlueCheck" ) 

End g^fe 

PublijsSub CloseAllHiddenDocuments ( ) 
Bim mswDocument As Word. Document 

Hr Each mswDocument In Word. Documents 

icL If mswDocument. Ac tiveWindow. Visible = False Then 

[IJ mswDocument .Close wdDoNotSaveChanges 

Next mswDocument 

End |ui 

Private Sub RemoveMenuItem( ItemToRemove As String) 
Dim cbcExistingltem As CommandBar Control 

Set cbcExistingltem = CommandBars . FindControl (Tag : =ItemToRemove) 
If Not cbcExistingltem Is Nothing Then 

cbcExistingltem. Delete 
End If 



End Sub 
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— NOTE: "BlueCheck" and "BCWordlnterface" must be selected in the References dialog box. 
Private mBlueCheck As New cBlueChecklnstance 
Public Sub AutoExecO 

Call BCAutoExec 
End Sub 

Public Sub BlueCheck () 

Call mBlueCheck. Start 
Beep 

End Sub 

Public Sub BlueCheckOptions ( ) 

Call mBlueCheck. ShowOptions 
End Sub 



